Visual Basic - EJECUTAR GIF ANIMADO EN VISUAL

POR FAVOR
He insertado en visual el control gif89 y lo he registrado por ejecutar.
LO COLOCO EN EL FORMULARIO Y LE ASIGNO LA RUTA DEL GIF ANIMADO EN LA PROPIEDAD FILENAME, pero al ejecutar el formulario, la imagen no aparece.
Que código debe colocar en el formulario o que otra propiedad debo arle para que se ejecute.
GRACIAS

Yo uso el Anigif.ocx y es el que te recomiendo.

Ejemplo:
Private sub Form_Activate (
AniGIF1.ReadGIF(App.Path & "/mi.gif ")
AniGIF1.AutoSize= True ' se adapta al tamaño de la animación
AniGIF1.Play ´ inicia la animación. y Stop la detiene.
End Sub

Y aquí el resto de propiedades:

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

Un saludo

lo voy a buscar en internet y te comento como me va
GRACIAS

GRACIAS.
Ahora el problema es que cada vez que voy a ejecutar mi pide que registre.
Aunque ya lo hice por ejecutar con : Regsvr32 c:windowssystem32AniGIF.ocx
Que me falta?
gracias

Una vez registrado ¿lo has añadido en Componetes?

El ejemplo es para ejecutarlo desde el disco pero lo mejor es arrastrar el control, desde el cuadro de herramientas, hacia un formulario. Después colocas dentro el .gif.

Ya me dirás.

Hola Pere. Gracias por querer colaborarme.
Despues de agregarlo en system32 y registrarlo por ejecutar: Regsvr32 c:windowssystem32AniGIF.ocx, fui a visual y lo agregue por componentes a las herramientas, luego lo arrastre al formulario , y en Private Sub Form_Activate() pegué la codificacion que me enviaste. incluso no le hice nada a las propiedades.
pero cada vez que abro el formulario aparece un cuadro en el que se pide registrar el control.
Cuando descargue el gif89 no me paso eso, puedes decirme de donde descargaste tu el control, porque puede ser la página de donde lo descargue la que pide esta información.
Gracias de nuevo.

No me acuerdo de donde lo descargué pero te puedo mandar el que uso y que me funciona.

Una vez arrastrado al formulario ¿lo colocas dentro mediante la propiedad Picture?

Pere

grax por la informacion me fue de itilidad nadams ke tenga pasos para comprender mejor y de manera facil porfa grax
besitoss
bye

grax por la informacion me fue de itilidad nadams ke tenga pasos para comprender mejor y de manera facil porfa grax
besitoss
bye

grax por la informacion me fue de itilidad nadams ke tenga pasos para comprender mejor y de manera facil porfa grax
besitoss
bye

grax por la informacion me fue de itilidad nadams ke tenga pasos para comprender mejor y de manera facil porfa grax
besitoss
bye

Hace tiempo un forero tenía el mismo problema y lo solucionamo de esta mnera.

Puedes seguir el hilo aquí:
http://www.lawebdelprogramador.com/news/mostrar_new.php?id=93&texto=Visual+Basic&n1=357874&n2=1&n3=1&n4=1&n5=1&n6=1&n7=0&n8=0&n9=0&n0=0

YO TE DIGO GRACIAS A TI.
CON TU AYUDA HICE FUNCIONAR EL GIF89
Private Sub Form_activate()
Gif89a1.Play
End Sub
ya que con el control anigif que descargue sigue presentándome el problema de registro, puede ser que al igual que EL FORERO el mio no admita descargarlo gratuitamente.
Perdona pero me gustaría que me enviarás a mi correo el control que tu tienes para ver si con ese se ejecuta bien al cargar el formulario.

DE TODAS FORMAS MU..........CHAS........... GRACIAS

Ya te lo he enviado.

Vuelvo el lunes.

Ya me contarás.

Un saludo

me puedes enviar el control q utilizas para reproducri gif en visual basic por favor mi correo

[email protected]

graxias