VB 改变桌面鼠标图标
答案:2 悬赏:80 手机版
解决时间 2021-02-26 01:11
- 提问者网友：我们很暧昧
- 2021-02-25 07:16
VB 改变桌面鼠标图标
最佳答案
- 五星知识达人网友：孤老序
- 2021-02-25 08:42
不知道你是修改的是系统的还是程序的？
如果是程序的那就如上位所说 若想让关闭程序后鼠标仍改变那就参考下面
Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Declare Function SetSystemCursor Lib "user32" Alias "SetSystemCursor" (ByVal hCur As Long, ByVal id As Long) As Long
'关于 SetSystemCursor
hCur：光标的句柄，该函数hCur标识的光标的内容代替id定义的系统光标内容。系统通过调用DestroyCursor函数销毁hCur。因此hCur不能是由LoadCursor函数载入的光标。要指定一个从资源载入的光标，先用CopyCursor函数复制该光标，然后把该副本传送给SetSystemCursor函数。
id：指定由hour的内容替换系统光标。
下面是一系列的系统光标标识符：
OCR_APPSTARTING：标准箭头和小的沙漏
OCR_NORMAL：标准箭头
OCR_CROSS：交叉十字线光标
OCR_HAND：手的形状（Windows NT 5.0 和以后版本）
OCR_HELP：箭头和向东标记
OCR_IBEAM：I形梁
OCR_NO：斜的圆
OCR_SIZEALL：四个方位的箭头分别指向北、南、东、西
OCR_SIZENESEW：双箭头分别指向东北和西南
OCR_SIZENS：双箭头，分别指向北和南
OCR_SIZENWSE：双箭头分别指向西北和东南
OCR_SIZEWE：双箭头分别指向西和东
OCR_UP：垂直箭头
OCR_WAIT：沙漏
然后 SetSystemCursor LoadCursorFromFile("D:\1.ani"),OCR_NORMAL 即可。
系统会自动调用 DestroyCursor 来销毁。
Option Explicit
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function SetSystemCursor Lib "user32" (ByVal hCur As Long, ByVal id As Long) As Long
Private Declare Function DestroyCursor Lib "user32" (ByVal hCur As Long) As Long
Private Const OCR_NORMAL = 32512
Dim lRet As Long
Private Sub Form_Load()
lRet = LoadCursorFromFile("D:\Icons\Standard Hand.cur")'我的图标路径
SetSystemCursor lRet, OCR_NORMAL
End Sub
Private Sub Command1_Click()
DestroyCursor(lRet)
End Sub
惨了……变不回去……必须要重设光标了。
但你可以设置单击“取消”后把鼠标换成系统鼠标图案，前提是你要有系统的鼠标文件
如果是程序的那就如上位所说 若想让关闭程序后鼠标仍改变那就参考下面
Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Declare Function SetSystemCursor Lib "user32" Alias "SetSystemCursor" (ByVal hCur As Long, ByVal id As Long) As Long
'关于 SetSystemCursor
hCur：光标的句柄，该函数hCur标识的光标的内容代替id定义的系统光标内容。系统通过调用DestroyCursor函数销毁hCur。因此hCur不能是由LoadCursor函数载入的光标。要指定一个从资源载入的光标，先用CopyCursor函数复制该光标，然后把该副本传送给SetSystemCursor函数。
id：指定由hour的内容替换系统光标。
下面是一系列的系统光标标识符：
OCR_APPSTARTING：标准箭头和小的沙漏
OCR_NORMAL：标准箭头
OCR_CROSS：交叉十字线光标
OCR_HAND：手的形状（Windows NT 5.0 和以后版本）
OCR_HELP：箭头和向东标记
OCR_IBEAM：I形梁
OCR_NO：斜的圆
OCR_SIZEALL：四个方位的箭头分别指向北、南、东、西
OCR_SIZENESEW：双箭头分别指向东北和西南
OCR_SIZENS：双箭头，分别指向北和南
OCR_SIZENWSE：双箭头分别指向西北和东南
OCR_SIZEWE：双箭头分别指向西和东
OCR_UP：垂直箭头
OCR_WAIT：沙漏
然后 SetSystemCursor LoadCursorFromFile("D:\1.ani"),OCR_NORMAL 即可。
系统会自动调用 DestroyCursor 来销毁。
Option Explicit
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function SetSystemCursor Lib "user32" (ByVal hCur As Long, ByVal id As Long) As Long
Private Declare Function DestroyCursor Lib "user32" (ByVal hCur As Long) As Long
Private Const OCR_NORMAL = 32512
Dim lRet As Long
Private Sub Form_Load()
lRet = LoadCursorFromFile("D:\Icons\Standard Hand.cur")'我的图标路径
SetSystemCursor lRet, OCR_NORMAL
End Sub
Private Sub Command1_Click()
DestroyCursor(lRet)
End Sub
惨了……变不回去……必须要重设光标了。
但你可以设置单击“取消”后把鼠标换成系统鼠标图案，前提是你要有系统的鼠标文件
全部回答
- 1楼网友：枭雄戏美人
- 2021-02-25 09:11
'读取外部图标 Picture1.Picture = LoadPicture( "路径+文件名")
'改变鼠标图标 MousePointer属性就是设置鼠标指针形状的属性，有0～98种可以选择，如果这么多种你还不满意，就将其属性设置为99，然后将MouseIcon属性选择一个以.ico或.cur为扩展名的图标就行了，那个图标就是你鼠标的形状。MousePointer.ico=Picture1.Picture
简写：MousePointer.ico=LoadPicture( "路径+文件名")
.............
删除鼠标图标（其实是恢复原来的样子）：MousePointer.ico=LoadPicture( "")
'改变鼠标图标 MousePointer属性就是设置鼠标指针形状的属性，有0～98种可以选择，如果这么多种你还不满意，就将其属性设置为99，然后将MouseIcon属性选择一个以.ico或.cur为扩展名的图标就行了，那个图标就是你鼠标的形状。MousePointer.ico=Picture1.Picture
简写：MousePointer.ico=LoadPicture( "路径+文件名")
.............
删除鼠标图标（其实是恢复原来的样子）：MousePointer.ico=LoadPicture( "")
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯