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

>>阅读原文<<