vb如何任意截屏

问题描述

精选答案

'form中放一个按钮和一个图片框 Private Declare Sub keybd_event Lib

"user32

" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Const theScreen = 0 Const theForm = 1 Private Sub Command1_Click() Call keybd_event(vbKeySnapshot, theScreen, 0, 0) DoEvents Picture1.Picture = Clipboard.GetData(vbCFBitmap) End Sub 另外，注意要把form和picturebox都弄大一点，这样方便看一些