VB 超简单的屏幕截图代码
😂 这篇文章最后更新于3661天前,您需要注意相关的内容是否还可用。
双击窗体截屏
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Form_DblClick() '双击窗体截图
keybd_event vbKeySnapshot, 0&, 0&, 0&
DoEvents
Me.Picture = Clipboard.GetData(vbCFBitmap)
SavePicture Me.Picture, "c:\test.bmp" '保存图片
End Sub
留言评论
暂无留言