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