网上有关“vb动态鼠标指针”话题很是火热 ，小编也是针对vb动态鼠标指针寻找了一些与之相关的一些信息进行分析 ，如果能碰巧解决你现在面临的问题，希望能够帮助到您 。
VB 窗体 动态鼠标指针
'窗体声明
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function DestroyCursor Lib "user32" (ByVal hCursor As Long) As Long
Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
' Const declare
Private Const GCL_HCURSOR = (-12)
'
Dim AniCur As Long
Private Sub Form_Load()
AniCur& = LoadCursorFromFile(App.Path & "\1.ani")'ani 鼠标指针文件1.ani 和程序在同一文件夹
SetClassLong Me.hwnd, GCL_HCURSOR, AniCur
End Sub
Private Sub Form_Unload(Cancel As Integer)
DestroyCursor AniCur
End Sub
1.首先到网上下载鼠标指针主题包
2.打开控制面板下面“鼠标 ”按钮 ，打开鼠标属性配置窗口
3.点击“指针 ”标签 ，windows列出预置系统下默认所有鼠标的状态及图标，双击需要更改图标的状态列 ，如下图修改“正常选择”状态下的鼠标箭头图标
4.在鼠标主题包里选择需要更换的后点“确定 ” ，即可预览到鼠标箭头的图标
5.确认无误后点击“确定 ”，这时把鼠标移动到非编辑区域即可持到鼠标的图标已修改成已编辑的 。
关于“vb动态鼠标指针”这个话题的介绍 ，今天小编就给大家分享完了 ，如果对你有所帮助请保持对本站的关注！
本文来自作者[yuexie]投稿，不代表圣泉吧立场，如若转载，请注明出处：https://wak.sqpump.com.cn/sq/401.html
评论列表（3条）
我是圣泉吧的签约作者“yuexie”
本文概览：网上有关“vb动态鼠标指针”话题很是火热，小编也是针对vb动态鼠标指针寻找了一些与之相关的一些信息进行分析，如果能碰巧解决你现在面临的问题，希望能够帮助到您。VB 窗体 动态鼠...
文章不错《vb动态鼠标指针》内容很有帮助