网页功能: 加入收藏 设为首页 网站搜索  
在VB中显示动画鼠标图标
发表日期:2005-06-08作者:[转贴] 出处:  

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


函数声明:

Public Const GCL_HCURSOR = -12

 

Declare Function ClipCursor Lib \"user32\" (lpRect As Any) As Long

Declare Function DestroyCursor Lib \"user32\" (ByVal hCursor As Any) As Long

Declare Function LoadCursorFromFile Lib \"user32\" Alias \"LoadCursorFromFileA\" (ByVal

lpFileName As String) As Long

Declare Function SetClassLong Lib \"user32\" Alias \"SetClassLongA\" (ByVal hwnd As Long,

ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Declare Function GetClassLong Lib \"user32\" Alias \"GetClassLongA\" (ByVal hwnd As Long,

ByVal nIndex As Long) As Long


使用:
 

Dim mhBaseCursor As Long, mhAniCursor As Long

Dim lResult As Long

mhAniCursor = LoadCursorFromFile(\"c:windowscursorsappstart.ani\")

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

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 在VB中显示动画鼠标图标
本类热点文章
  颜色转换函数(RGB、HSB、CMYK、Lab)
  颜色转换函数(RGB、HSB、CMYK、Lab)
  MCI命令详解
  MCI命令详解
  在VB中显示动画鼠标图标
  不装RealPlayer播放RM文件
  不装RealPlayer播放RM文件
  在VB6.0中播放GIF动画
  怎样检查声卡的存在
  用VB实现队列播放MP3
  怎样在VB中播放Flash动画
  制作自己的MP3播放器
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2024 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00346