首页 > 学院 > 开发设计 > 正文

截取屏幕图像

2019-11-18 17:50:06
字体:
来源:转载
供稿:网友
PRivateDeclareFunctionCreateCompatibleBitmapLib"gdi32"(ByValhdcAsLong,ByValnWidthAsLong,ByValnHeightAsLong)AsLong
PrivateDeclareFunctionSelectObjectLib"gdi32"(ByValhdcAsLong,ByValhObjectAsLong)AsLong

PrivateSubForm_Load()
DimhBitmapAsInteger
Me.AutoRedraw=True
hBitmap=CreateCompatibleBitmap(Me.hdc,0,0)
SelectObjectMe.hdc,hBitmap
EndSub->


发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表