Question

怎样用VB抓图并将其保存在指定的文件里

三楼的你好,请解释下你的代码.
你这个只能获取部分窗口图像,我需要的是整个屏幕的,请再写下.
谢

Answer 1

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 Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetForegroundWindow Lib "user32" () As Long

Private Sub Command1_Click()
Dim hdc As Long, hWN As Long
Picture1.Width = Screen.Width
Picture1.Height = Screen.Height
Picture1.AutoRedraw = True
hWN = GetForegroundWindow()
hdc = GetDC(hWN)
sx = Screen.Width / Screen.TwipsPerPixelX
sy = Screen.Height / Screen.TwipsPerPixelY
BitBlt Picture1.hdc, 0, 0, sx, sy, hdc, 0, 0, vbSrcCopy
ReleaseDC 0, hdc
Picture1.AutoRedraw = False
SavePicture Picture1.Image, App.Path & "\1.jpg"
End Sub

Answer 2

问那么多次干嘛