Public Sub ScreenShot()
Dim bit As Bitmap = New Bitmap(Me.Width, Me.Height)
Dim g As Graphics = Graphics.FromImage(bit)
g.CompositingQuality = Drawing2D.CompositingQuality.HighSpeed
g.CopyFromScreen(Me.Left, Me.Top, 0, 0, New Size(Me.Width, Me.Height))
Try
bit.Save("D:\tmp\1.png")
lst_Log.Items.Add("保存截图成功")
Catch ex As Exception
MsgBox("保存截图失败 " & ex.Message)
End Try
End Sub
VB.net 保存窗体截图源代码
最新推荐文章于 2020-12-03 18:32:47 发布