COMO INSERTAR GIF EN VB

arpm
23 de Marzo del 2006
Necesito algun codigo o explicacion de como insertar gifs o codigos en vb, y hacer que este se desplaze cuando se haga un click en determinada parte del formulario ( imagen 3D).

Pere
23 de Marzo del 2006
Una vez añadido a Componentes, se coloca en el formulario que deseo (por defecto en el evento Activate pero puede ser en cualquier otro).
Este es un ejemplo para el Marchoso.ocx y el Anigif.ocx por si te sirve:

Marchoso.ocx:

Autosize = True ' El control se ajuste automáticamente al tamaño de la imagen. Filename= "C:MiCarpetaMiMarchoso.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

Yo uso el AniGif tal como ves en el ejemplo. Para desplazarlo usa Move.

Un saludo.