• Home
 · 
• Windows API Call/Explanation
 · 
• Set System Cursor using SetSystemCursor API

Set System Cursor using SetSystemCursor API

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




Rate Set System Cursor using SetSystemCursor API

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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