VB工程--百例92---拍照窗體

Option Explicit

Private Sub Form_Load()
Dim wbitmap '定義變量
Me.AutoRedraw = True '使窗體能夠自動重繪
wbitmap = CreateCompatibleBitmap(Me.hdc, 0, 0) '建立一個位圖，高度和寬度均爲0
SelectObject Me.hdc, wbitmap '將建立的位圖放到設備環境中
Me.Refresh '重繪窗體
End Sub

Option Explicit

Public Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
'CreateCompatibleBitmap　　函數功能：該函數創建與指定的設備環境相關的設備兼容的位圖。
'函數原型：HBITMAP CreateCompatibleBitmap(HDC hdc,int nWidth,int nHeight)；
'參數： 　　hdc： 設備環境句柄。
'nWidth：指定位圖的寬度，單位爲像素。　nHeight：指定位圖的高度，單位爲像素。

'http://baike.baidu.com/view/1080369.htm

'SelectObject 　函數功能：該函數選擇一對象到指定的設備上下文環境中，該新對象替換先前的相同類型的對象。
'　函數原型：HGDIOBJ SelectObject(HDC hdc, HGDIOBJ hgdiobj)；
'參數：hdc：設備上下文環境的句柄。 　　hgdiobj：被選擇的對象的句柄，該指定對象必須由如下的函數創建。
'位圖：CreateBitmap, CreateBitmapIndirect, CreateCompatible Bitmap, CreateDIBitmap, CreateDIBsection
'（只有內存設備上下文環境可選擇位圖，並且在同一時刻只能一個設備上下文環境選擇位圖）。
' http://baike.baidu.com/view/1080552.htm