先建立一个窗体，设置窗体的WindowState属性为2，AutoRedraw属性为True
加入API声明，最好加到模块里
复制内容到剪贴板
代码:
Public Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Public 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
Public Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hDC As Long) As Long在窗体的Form_Load事件中加入下面的代码
复制内容到剪贴板
代码:
Dim hDC As Long, sX As Integer, sY As Integer
Dim hOldPattern As Long, bBmp(0 To 15) As Byte
Dim hBitmap As Long, hPattern As Long, hDCScreen As Long
sX = Screen.Width Screen.TwipsPerPixelX
sY = Screen.Height Screen.TwipsPerPixelY
hDC = GetDC(0)
'抓图
BitBlt Me.hDC, 0, 0, sX, sY, hDC, 0, 0, vbSrcCopy
ReleaseDC 0, hDC
