| Pregunta: | 13971 - VISUALIZAR ARCHIVO DE ANIMACION .ANI |
| Autor: | WILLIANA PORRELLO |
| QUISIERA SABER COMO PUEDO INGRESAR UN ARCHIVO .ANI EN VISUAL Y COMO LO LEO PARA QUE PUEDA ABRIR GRACIAS | |
| Respuesta: | Mario Campos |
| Un archivo .ani es un cursor animado, aca te mando una api que creo te puede servir, cualquier cosa avisamel.
Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long Private Declare Function SetClassWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal wNewWord As Long) As Long Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long Private Declare Function DestroyCursor Lib "user32" (ByVal hCursor As Long) As Long Const GCW_HCURSOR = (-12) Const IDC_SIZEALL = 32646& Dim SysCursHandle As Long, Curs1Handle As Long, Curs2Handle As Long Private Sub Form_Load() 'Load a default cursor Curs1Handle = LoadCursor(ByVal 0&, IDC_SIZEALL) 'Load a cursor from a file Curs2Handle = LoadCursorFromFile("archivo.ani") 'Set the form's mouse cursor SysCursHandle = SetClassWord(Me.hwnd, GCW_HCURSOR, Curs1Handle) 'Set the button's cursor SysCursHandle = SetClassWord(Command1.hwnd, GCW_HCURSOR, Curs2Handle) End Sub Private Sub Form_Unload(Cancel As Integer) 'Set the form's cursor back to the original cursor SetClassWord Me.hwnd, GCW_HCURSOR, SysCursHandle 'Clean up DestroyCursor Curs1Handle DestroyCursor Curs2Handle End Sub | |