RE:NECESITO AYUDA PARA INSERTAR GIF
Publicado por
Pere (1 intervención) el 11/06/2007 15:00:38
Te copio el texto de un mensaje que envié hace meses (así te ahorras el buscarlo) para el Marchoso.ocx y el AniGif.ocx
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
Un saludo