双击窗体截屏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
支付宝领红包
发表评论:
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。