|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Mouse/Teclado)
|
|
 |
Título da Dica: Carregando um ponteiro animado no mouse
|
 |
|
|
|
Postada em 29/9/2003 por ^HEAVY-METAL^
Private Declare Function LoadCursorFromFile Lib "User32" Alias "LoadCursorFromFileA" (ByVal LpFileName As String) As Long
Private Declare Function SetClassWord Lib "User32" (ByVal hWnd As Long, ByVal uFlags As Long, ByVal HObject As Long) As Long
Private Const GCL_HCURSOR = (-12)
Dim hOldCur As Long
Dim hNewCur As Long
'To Change the Cursors
hNewCur = LoadCursorFromFile("C:\Windows\Cursors\Globe.Ani")
hOldCur = SetClassWord(Me.hWnd, GCL_HCURSOR, hNewCur)
'To Reset the Cursor
hOldCur = SetClassWord(Me.hWnd, GCL_HCURSOR, hOldCur)
EDITADO:
~Ð@®£@Ñ
|
|
|
|
|
