博客

转载自：http://blog.sina.com.cn/s/blog_484102dd0100bf15.html

两种方法：方法一操作直接、速度快，方法二以不变应万变，可以做视频截图。

方法一：
Private Declare Function GetDesktopWindow Lib “user32” () As Long
Private Declare Function GetDC Lib “user32” (ByVal hWnd As Long) As Long
Private Declare Function ReleaseDC Lib “user32” (ByVal hWnd As Long, ByVal hdc 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 Const SRCCOPY = &HCC0020

Sub saveMyScreen()
        Dim lngDesktopHwnd As Long
        Dim lngDesktopDC As Long

        Picture1.AutoRedraw = True
        Picture1.ScaleMode = vbPixels
        lngDesktopHwnd = GetDesktopWindow
        lngDesktopDC = GetDC(lngDesktopHwnd)

        Picture1.Width = Screen.Width
        Picture1.Height = Screen.Height
        Call BitBlt(Picture1.hdc, 0, 0, Screen.Width, Screen.Height, lngDesktopDC, 0, 0, SRCCOPY)
        Picture1.Picture = Picture1.Image
        Call ReleaseDC(lngDesktopHwnd, lngDesktopDC)

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

Private Sub Command1_Click() 
Call keybd_event(vbKeySnapshot, theScreen, 0, 0) 
DoEvents 
Picture1.Picture = Clipboard.GetData(vbCFBitmap) 
End Sub