by Karthikeyan (187 Submissions)
Category: Windows API Call/Explanation
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Wed 1st August 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Set System Cursor using SetSystemCursor API
API Declarations
Const OCR_WAIT = 32514
Const OCR_APPSTARTING = 32650
Const OCR_CROSS = 32515
Const OCR_IBEAM = 32513
Const OCR_NO = 32648
Const OCR_SIZEALL = 32646
Const OCR_SIZENESW = 32643
Const OCR_SIZENS = 32645
Const OCR_SIZENWSE = 32642
Const OCR_SIZEWE = 32644
Const OCR_UP = 32516
Private Declare Function SetSystemCursor Lib "user32.dll" (ByVal hcur As Long, ByVal id As Long) As Long
Private Declare Function LoadCursorFromFile Lib "user32.dll" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Dim kursor As Long
Dim rval As Long
kursor = LoadCursorFromFile("C:\windows\cursors\globe.ani")
rval = SetSystemCursor(kursor, OCR_WAIT)'Set globe.ani as system cursor when waiting operation takes place
End
End Sub