VB中一个非常简单的截屏代码

领测软件测试网

　　 

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 = 1
Const theForm = 0

Private Sub Command1_Click()

   Call keybd_event(vbKeySnapshot, theForm, 0, 0)
   '若theForm改成theScreen则Copy整个Screen
   DoEvents
   Picture1.Picture = Clipboard.GetData(vbCFBitmap)
End Sub

文章来源于领测软件测试网 https://www.ltesting.net/