Sección de controles Ocx para Visual basic , Dll , Activex

186 - Cursores animados en formularios y controles

<Volver> - Anterior - Siguiente

Contenido:

Ejemplo 1
Ejemplo 2
Relacionados

Ejemplo 1

Simple control para cargar cursores animados ( archivos .ani )

Recurso enviado por Luis Nuñez

Para descargar el código fuente : Ani cursor - fuente

Para descargar solo el ocx compilado : AniCursor.ocx

Breve descripción :

Antes que nada hay que indicar la ruta del archivo de cursor animado en la propiedad AniFile, por ejemplo :

XAniCursor1.AniFile = App.Path & "\cursores\archivo.ani"

Luego para cargarlo con el método CursorOn y para eliminarlo o descargarlo con el método CursorOff

Ejemplo 2

Módulo de clase clsAniCursor

También podés descargar este módulo que lo hice en base a los ejemplos anteriores, para no tener que distribuir el control.

Nota: para usarlo con múltiples controles, se debe declarar una variable de la clase para cada control que llevará un cursor animado, por ejemplo para usarlo con un picture1 y un text1 se declaran dos variables

Dim aniCursor1 As New clsAniCursor
Dim aniCursor2 As New clsAniCursor

Luego se debe indicar los archicos .ani para cada uno de los controles , y también el Hwnd , como en este caso es para Picure1 y Text1

aniCursor1.AniFile = App.Path & "\cursores\archivo 1.ani"
aniCursor2.AniFile = App.Path & "\cursores\archivo 2.ani"

call aniCursor1.CursorOn (Text1.hwnd)
Call aniCursor2.CursorOn (List1.hwnd)

y para quitarlos

call aniCursor1.CursorOff (Text1.hwnd)
call aniCursor2.CursorOff (List1.hwnd)

Descargar módulo con ejemplo

Relacionados

Nota: para diseñar y crear un cursor animado, podés descargar este programa de edición de archivos de íconos que también permite crear cursores o archivos .ANI.

En la carpeta Samples hay un archivo Ani de ejemplo. : Descargar programa

Buscar en Recursos vb con Google