Visual Basic - Consulta sobre MARCHOSO.OCX

Hola a to2.

Mi consulta es la siguiente, MARCHOSO.OCX funciona bien en WinXP pero en en Win98 no se ven los gif, por que sucede eso??

Se agradece de antemano la ayuda.

Gracias......

¿Qué es lo que te sucede?
Yo lo uso en ambos sistemas sin ningún problema.
Prueba de usar el AniGif.ocx con este seguro que no lo tienes.

Un saludo.

hola gracias por la ayuda, pero tambien lo probe y nada. Tú cuando le asignas un gif lo haces directamente con el objeto o lo haces por código?

Lo añado en Componentes y lo coloco en el formulario que deseo (por defecto en el evento Activate pero puede ser en cualquier otro).

Por código lo hago visible y le doy movimiento. Lo que sigue es una copia de un mensaje que mandé hace días por si te sirve:

Marchoso.ocx:

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

Yo uso el AniGif tal como ves en el ejemplo. Como te decía tanto en W9x como XP

Saludos.