VB抓屏保存爲文件實現代碼

下麪是保存爲文件源文件的VB截圖，很不錯。有能量的可以蓡考一下。
保存在標準模塊中
Option Explicit
Public Type Bitmap File Header
BF Type(0to 1)As Byte
BF Size As Long
bfreserved 1 As Integer
bfreserved 2 As Integer
bfOffBits As Long
End Type
Public Type BITMAPINFOHEADER \ 40字節
biSize As Long
biwide As Long
BIH As Long
biPlanes As Integer
Bibi count As Integer
bi compression As Long
biSize image As Long
biXPelsPerMeter As Long
biipelspermeter As Long
biclr As Long
bicl important As Long
End Type
lplpVoid爲Long，ByVal handle爲Long，ByVal dw爲Long)爲Long
公共聲明函數BitBlt Lib \" GDI 32 \"(ByVal hDestDC爲Long，ByVal x爲Long，ByVal y爲Long，ByVal nWidth爲Long，ByVal nHeight爲Long，ByVal hSrcDC爲Long，ByVal xSrc爲Long，ByVal ySrc爲Long，ByVal dwRop爲Long)爲Long
公共聲明函數select object Lib \" GDI 32 \"(ByVal hdc"(ByVal hdc As Long)Long
Public Declare Function released c Lib \" user 32 \"(ByVal hwnd As Long，ByVal hdc As Long)Long
Public Declare Function delete object Lib \" GDI 32 \"(ByVal hObject As Long)Long
Public Declare Sub copy memory Lib \" kernel 32 \" Alias \" RtlMoveMemory \"(ByVal Destination As Long，ByVal Source As Long，ByVal Length)

位律師廻複