Marchoso.ocx:
Lo añades a Componentes y pon y en el formulario que desees:
Autosize = True ' El control se ajuste automáticamente al tamaño de la imagen. Filename= "C:\MiCarpeta\MiMarchoso.gif
GifLoop= True ' Reproduce la animación
GifLoop= False ' Para la animación
Ejemplo:
Private sub Form_Activate ( )
Marchoso1.Filename=App.Path & "/mi.gif
Marchoso1.GigLoop= True
End sub
AniGif.ocx:
Autosize= True ' se adapta al tamaño de la animación
Stretch indica el ajuste y puede ser:
0 sin ajuste, 1 ajuste total, 2 ajuste proporcional
Sequence indica el orden en que se mostrarán las imágenes de las que se compone la animación, los valores pueden ser:
0 la animación se reproduce en su secuencia normal
1 la animación se reproduce al revés
2 la secuencia se reproduce como si fuera el ping pong
3 las imágenes se reproducen según la secuencia establecida en la propiedad SequenceString: en esta propiedad indicaremos el orden de las imágenes separadas por comas
Loop: veces que se ejecutará la animación.
0 se ejecutará de forma indefinida.
Speed: velocidad a la que se reproducirá la animación y los valores pueden ser:
1 velocidad norma
2 mitad de velocidad
ReadGif : ruta del archivo gif
Play: inicia la animación.
Stop: la detiene.
Ejemplo:
Private sub Form_Activate (
AniGIF1.ReadGIF(App.Path & "/mi.gif ")
AniGIF1.AutoSize= True
AniGIF1.Play
End Sub
Como puedes ver el AniGif es un poco más completo, es el que uso.
Por cierto, creo que caduca. Hace mucho tiempo conseguí uno que ya estaba registrado. Si tienes algún problema con el que has conseguido, te lo puedo mandar a tu correo.
Espero haberte ayudado.
Un saludo.
