VB.net 保存窗体截图源代码

最新推荐文章于 2024-08-31 06:43:11 发布

原创最新推荐文章于 2024-08-31 06:43:11 发布 · 1.5k 阅读

6 ·

CC 4.0 BY-SA版权

文章标签：

#vb.net

VB.net 专栏收录该内容

7 篇文章

订阅专栏

本文介绍了一段使用VBA编写的屏幕截图代码，该代码利用Bitmap和Graphics对象捕获当前窗口的画面，并将其保存为PNG格式的图片。文章详细解释了各部分代码的功能，包括创建位图、设置绘图质量、从屏幕复制图像以及保存文件的过程。

 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