Dim Imgrect As Rectangle
Dim img As Bitmap
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Imgrect = Me.RectangleToScreen(Me.ClientRectangle)
img = New Bitmap(Imgrect.Width, Imgrect.Height)
Me.Hide()
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Stop()
Graphics.FromImage(img).CopyFromScreen(Imgrect.X, Imgrect.Y, 0, 0, Imgrect.Size)
Me.BackgroundImage = img
Me.Show()
End Sub
vbnet窗体截图的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb截图本窗体、vbnet窗体截图的信息别忘了在本站进行查找喔 。

• vbnetmysql
• mysql5实现窗口函数 mysql有窗体
• 如何在戴尔服务器上进行屏幕截图？ 戴尔服务器怎么截图
• mysql8.0 窗口函数 mysql窗体用什么模板
• 在mongodb中如何查看数据库列表 mongodb查看表截图
• mysql安装总结 mysql安装成功的截图
• MySQL环境变量截图 mysql环境变量
• 如何从手机截图中获取服务器地址？ 手机截图怎么看服务器地址
• vb.net单元格执行 vbnet begininvoke
• vb.net修改窗体标题 vbs窗口标题