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

>>阅读原文<<