Mensaje enviado por "Alberto M. Vernieri \(ar\)" <avernieri@interprov.com>

Hola!

----- Original Message -----
From: "Alvaro Arrarte" <aarrarte@electbus.com>
To: <avernieri@interprov.com>
Sent: Friday, April 07, 2000 11:14 AM
Subject: Bonus Pack


Por Ayudarme a resolver unos cuantos conflicticos y para compensar un poco el fastidio que te he causado te voy a mandar esta rutinita que sirve para animar cualquier cursor animado en donde te de el placer de llamarlo es muy buena ya la prove y sirve de las mil maravillas es 75%, made in home .

En el Modulo ESTANDAR del Prroyecto

'Declaracion para los Cursores Animados
Public Const GCL_HCURSOR = -12

Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Declare Function DestroyCursor Lib "user32" (ByVal hCursor As Any) As Long
Declare Function LoadCursorFromFile Lib "user32" Alias
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function GetClassLong Lib "user32" Alias "GetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Public mhBaseCursor As Long
Public mhAniCursor As Long
Public lResult As Long
Public state As Integer
'-----------------------------------------------------------------------

'Rutina para animar Cualquier Cursor.ani
Public Function Animar(Ruta_Ani As String, hwnd As Long)
    mhAniCursor = LoadCursorFromFile(Ruta_Ani)
    lResult = SetClassLong((hwnd), GCL_HCURSOR, mhAniCursor)
    state = 1
End Function

'Rutina para parar los cursores ani
Public Function Desanimar(hwnd As Long)
    lResult = SetClassLong((hwnd), GCL_HCURSOR, mhBaseCursor)
    lResult = DestroyCursor(mhAniCursor)
End Function

En un Formulario o donde se te ocurra

Dim Mostrar As Variant

Para empesar la Animacion
Mostrar = modMain.Animar(App.Path & "\imagenes\working.ani", Me.hwnd)

Para terminar la animacion
Mostrar = modMain.Desanimar(Me.hwnd)

Nota:
App.Path & "\imagenes\working.ani= a la ruta completa donde se encuentra
el cursor.ani
me.hwnd = es la propiedad del control o el formulario dependiendo el caso
mostrar = es una variable auxiliar


Pd: Si quieres lo puedes mandar a la Lista