USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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:
~Ð@®£@Ñ
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página