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

VB工程--百例92---拍照窗体,第1张

概述  Option Explicit Private Sub Form_Load()         Dim wbitmap '定义变量         Me.AutoRedraw = True '使窗体能够自动重绘         wbitmap = CreateCompatibleBitmap(Me.hdc, 0, 0) '建立一个位图,高度和宽度均为0         SelectObject

Option Explicit

Private Sub Form_Load()
Dim wbitmap '定义变量
Me.autoRedraw = True '使窗体能够自动重绘
wbitmap = CreateCompatibleBitmap(Me.hdc,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

总结

以上是内存溢出为你收集整理的VB工程--百例92---拍照窗体全部内容,希望文章能够帮你解决VB工程--百例92---拍照窗体所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。

欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/langs/1288170.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022-06-09
下一篇 2022-06-09

发表评论

登录后才能评论

评论列表(0条)

保存