敬业的IT人 互联网 佚名 2008-4-17 17:11:31

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

最新文章

读写INI文件的四个函数[04-17]

计算两个日期间的工作日[04-17]

用VisualBasic设计个性化文件夹图标[04-17]

用Winsock控件实现文件的下载[04-17]

VB的坐标系统综述[04-17]

如何在VB6.0中创建和使用文本资源文件[04-17]

相关文章