关闭

用API改变当前鼠标指针图案

707人阅读 评论(0) 收藏 举报
Public Const HandCursor = 32649& '这个是手型光标
Public Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
sub xxx_mousemove()
SetCursor LoadCursor(0, HandCursor)
end sub 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:10263次
    • 积分:176
    • 等级:
    • 排名:千里之外
    • 原创:6篇
    • 转载:0篇
    • 译文:0篇
    • 评论:5条
    文章存档
    最新评论