敬业的IT人 互联网 佚名 2008-4-17 18:07:49

Win95的动画鼠标为应用程序增色不少，而VB则只提供一般的鼠标图标支持。要用VB显示动画鼠标形状，你可以使用以下方法：


函数声明：

PublicConstGCL_HCURSOR=-12

DeclareFunctionClipCursorLib"user32"(lpRectAsAny)AsLong

DeclareFunctionDestroyCursorLib"user32"(ByValhCursorAsAny)AsLong

DeclareFunctionLoadCursorFromFileLib"user32"Alias"LoadCursorFromFileA"(ByVal

lpFileNameAsString)AsLong

DeclareFunctionSetClassLongLib"user32"Alias"SetClassLongA"(ByValhwndAsLong,

ByValnIndexAsLong,ByValdwNewLongAsLong)AsLong

DeclareFunctionGetClassLongLib"user32"Alias"GetClassLongA"(ByValhwndAsLong,

ByValnIndexAsLong)AsLong

使用：

DimmhBaseCursorAsLong,mhAniCursorAsLong

DimlResultAsLong

mhAniCursor=LoadCursorFromFile("c:\windows\cursors\appstart.ani")

lResult=SetClassLong((hwnd),GCL_HCURSOR,mhAniCursor)

最新文章

AVI文件格式[04-17]

基于VB的通用折行打印程序[04-17]

破解Windows屏幕保护admin888[04-17]

在VB应用程序中使用INI文件的一点体会[04-17]

VB常见问题解答(1)[04-17]

利用API检测文件是否存在[04-17]

相关文章