Versión VB6.0 Lite, cómo reproducir animaciones GIF y establecer un bucle o detenerse.

El siguiente código utiliza el control "WIA.ImageFile", que sólo es válido en sistemas Vista y win7.

Agregue un temporizador para controlar el temporizador 1

Este método no puede obtener la duración original de cada fotograma GIF y debe configurarlo usted mismo.

¿Oscuro? IMG

¿Privado? ¿Sub? Form_Load()

¿Configuración? ¿IMG? =?CreateObject("WIA.ImageFile ")? Crea un objeto

IMG. ¿Cargando archivos? ¿"F:\a.gif"? Cargando imágenes

Temporizador 1. ¿Permitir? =?Falso? Si inicias la mesa para empezar a jugar, elimina esta frase.

Temporizador 1. ¿Intervalo? =?200?Establecer la duración de cada fotograma

¿Fin? Submarino

¿Privado? ¿Sub? form_click()

Temporizador1. ¿Permitir? =?¿En serio? Haz clic en la mesa para jugar.

¿Fin? Submarino

¿Privado? ¿Sub? Temporizador 1 _Timer()

¿Electricidad estática? ¿I? ¿Como? Largo

¿Yo? =?Yo? ?1

¿Y si? ¿I? lt=?IMG. ¿Número de fotogramas? Entonces

IMG. ¿Marco activo? =?I

Muestro la imagen del marco en el formulario.

Yo. ¿imagen? =?IMG. ARGBData.Picture(IMG.Width,?IMG.Height)

¿Y si? Se acabó el juego

¿Yo? =?0

Temporizador 1. ¿Permitir? =?Falso? Si se reproduce en bucle, elimina esta frase.

¿Fin? Si

¿Finalizar? Submarino