VB 截屏的API函数是什么

VB 截屏的API函数是什么

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Sub Command1_Click()
Picture1.AutoRedraw = True
BitBlt Picture1.hDC, 0, 0, Screen.Width, Screen.Height, GetDC(0), 0, 0, vbSrcCopy '抓屏
Dim sFile As String
sFile = App.Path & "\" & Format(Now, "yyyy.mm.dd hh.mm.ss") & ".BMP"
Set Picture1.Picture = Picture1.Image
Picture1.AutoRedraw = False
SavePicture Picture1.Picture, sFile '保存

End Sub

如果是全屏幕的话，这样最方便
把他加在定时器在修改相关的保存语句就可以了
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

再利用相关代码将picture中的图片输出为所需要的格式即可实现截图。
缺点：无法实现对指定窗口的截图控制。