動畫在 Windows 底下是 .ani 格式的檔案, 要顯示此類游標, 首先要利用 LoadCursorFromFile API 載入 .ani 檔案, 然後利用 SetSystemCursor API 加以顯示, 細節如下:
1. API 的宣告:
Const OCR_NORMAL = 32512
Const IDC_ARROW = 32512&
Private Declare Function LoadCursorFromFile Lib "user32" Alias
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function LoadCursor Lib "user32" Alias "
LoadCursorA" (ByVal hInstance As Long, lpCursorName As Any) As Long
' modified
Private Declare Function SetSystemCursor Lib "user32" (ByVal
hcur As Long, ByVal id As Long) As Long
註:如果以上的宣告放在「一般模組」底下, 應在 Const 之前加上 Public 保留字, 並且將 Private 保留字去掉。
2. 程式範例:
Dim hCursor As Long
hCursor = LoadCursorFromFile( 欲顯示的 .ani 或 .cur 檔案名稱 )
Call SetSystemCursor(hCursor, OCR_NORMAL)
若要將滑鼠游標還原原狀, 則是執行以下敘述:
hCursor = LoadCursor(0&, ByVal IDC_ARROW)
Call SetSystemCursor(hCursor, OCR_NORMAL)