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
Private Sub Form_DblClick() '双击窗体截图
keybd_event vbKeySnapshot, 0&, 0&, 0&
DoEvents
Me.Picture = Clipboard.GetData(vbCFBitmap)
SavePicture Me.Picture, "c:\test.bmp" '保存图片
End Sub
摘自:网络整理
★VB部分相关文章推荐:★