这篇博客介绍了如何在VB中使用`CreateCompatibleBitmap`和`SelectObject`函数来创建与设备环境兼容的位图，并将其选入设备上下文环境中，实现拍照窗体的功能。在`Form_Load`事件中，通过设置AutoRedraw属性、创建位图并重绘窗体来展示这一过程。
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 nWid
最低0.47元/天 解锁文章
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
