863
社区成员
发帖
与我相关
我的任务
分享
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'过程功能:设置屏幕鼠标图形
'功能描述:设置为动态光标
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Public Sub subSetAniCursor(ByVal strCursorFile As String)
Cursor = LoadCursorFromFile(strCursorFile)
Screen.MousePointer = 2 '选一个不常用的光标类型
Cursor2 = GetCursor
HoldCursor = CopyIcon(Cursor2)
'如果第二个参数用OCR_NORMAL,则会把屏幕上默认的箭头光标替换为动画光标
Call SetSystemCursor(Cursor, OCR_CROSS)
End Sub