vb高手救我

来源：百度知道 编辑：UC知道 时间：2024/05/15 19:33:37
我已经知道如何进行全屏幕截图，但我不需要全屏幕的图，我只想截窗体的图．请问有办法吗 若有．请告诉我方法 谢谢．

'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都弄大一点，这样方便看一些