首 页 | 精品电影 | 音乐天堂 | 在线游戏 | Flash MTV | 三湘书屋 | 幽默笑话 | 三湘图库 | 美女写真 | IT知识库 | QQ贴图 | 加入书签

｜网页制作｜网络编程｜图形图象｜操作系统｜冲浪宝典｜软件教学｜网络安全｜认证考试｜通信技术｜电子商务｜业内动态｜书籍教程｜原码｜

最近更新 文章分类 多媒体类 精品软件

 本站搜索：
您的位置：三湘时空 -> IT知识库 -> 文章分类 -> VB -> 在VB中显示动画鼠标图标
在VB中显示动画鼠标图标


文章类别：VB 来源： 作者： 发表日期：2006-2-28 字体：[大 中 小]

小游戏 | 在线影院 | 幽默笑话 | 源码下载 | Flash MTV | 音乐试听 | 书屋 | 美女写真
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)->

上一篇:在VB6中将XML传入一个TreeView控件 下一篇:VB随机图像的魅力
本栏目热门文章
·用VB实现象Windows记事本的一些功能 2006-2-28
·DataGrid控件的使用 2006-2-28
·DataCombo和DataList控件的使用二 2006-2-28
·DataGrid控件的使用二 2006-2-28
·利用timeGetTime函数更精准地计算差 2006-2-28
·自己的IE——用VB制作浏览器 2006-2-28
·利用VBScript实现倒计时 2006-2-28
·用Winsock制作一套聊天室和对话系统 2006-2-28
·使用ADO來压缩或修复MicrosoftAccess文件 2006-2-28
·用VB尝试新的界面风格 2006-2-28
新近更新文章
·用VB实现象Windows记事本的一些功能 2006-2-28
·FLIC动画文件的播放程序设计 2006-2-28
·用VB实现浮动按钮 2006-2-28
·利用VB三维面板控件设计流动条 2006-2-28
·用VB制作即时动态按钮 2006-2-28
·用VB尝试新的界面风格 2006-2-28
·VB5.0中实现字体闪烁效果 2006-2-28
·VB5.0应用程序的启动与退出设计 2006-2-28
·用VB5.0创建Windows快捷方式 2006-2-28
·在VB中如何创建闪烁(标语)屏 2006-2-28
首 页 | 软件发布 | 广告联系 | 下载帮助 | 意见反馈 | 网站地图
　 CopyRight? 2002-2004 WWW.SXSKY.NET? All Rights Reserved
三湘时空 站长QQ：82675303 Email: