WEB开发网      好站好分享!你的一份分享是我们的一份动力;请分享 ---﹥
开发学院WEB开发综合 截取屏幕图像 阅读

截取屏幕图像

 2006-02-27 11:43:24 来源:WEB开发网 减小字体增大字体】  关注杨恒飞的微博
核心提示:PRivateDeclareFunctionCreateCompatibleBitmapLib"gdi32"(ByValhdcAsLong,ByValnWidthAsLong,ByValnHeightAsLong)AsLongPrivateDeclareFunctionSelectObjectLib
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->

Tags:截取 屏幕 图像

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接