Public Class Form1
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim point1 As Point
Dim point2 As Point
Dim pic As Bitmap
Me.Hide()
point1 = New Point(0, 0)
point2 = New Point(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
pic = New Bitmap(point2.X, point2.Y)
Using g As Graphics = Graphics.FromImage(pic)
g.CopyFromScreen(point1, point1, point2)
Me.BackgroundImage = pic
End Using
Me.Show()
End Sub
End Class
屏幕截图,不用API
最新推荐文章于 2022-01-04 11:30:28 发布