vb动态鼠标指针优质

网上有关“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动态鼠标指针”这个话题的介绍 ，今天小编就给大家分享完了，如果对你有所帮助请保持对本站的关注！