@@¡Cómo mostrar imágenes animadas gif en vb! !
Varios métodos para implementar animación GIF en VB6.0
888ai444
¿Sientes que tu programa está un poco sin vida? Intente agregarle una pequeña animación. ¡Puede agregar mucho color a tu programa!
La animación realizada con VB no es el tipo de animación con excelentes efectos de luz y sonido y personajes dinámicos y cosas que todos imaginan. Se puede decir que la animación implementada con VB es una imagen en movimiento. En pocas palabras, consiste en mostrar un montón de imágenes en secuencia, en un bucle y continuamente a una cierta velocidad, creando así una sensación de movimiento. Por supuesto, este conjunto de imágenes no está necesariamente en formato GIF, pero los archivos GIF tienen una gran relación de compresión y generalmente se denominan "archivos comprimidos sin pérdida" y son más adecuados para animaciones. Si está satisfecho, también puede utilizar archivos. en BMP, JPG y otros formatos.
Después de tener una cierta comprensión de la animación GIF, analicemos cómo implementar la animación GIF en un programa VB.
El primer método: utilice el cuadro de imagen (IMAGEBOX) para cargar imágenes en un ciclo en un momento determinado. Este método requiere el uso del control TIMER, porque el control TIMER no afectará el funcionamiento de otros programas como FROM_LOAD y no se verá afectado por otros programas, por lo que es la primera opción. Establezca la propiedad STRETCH del cuadro de imagen (IMAGEBOX) en TRUE para adaptar el tamaño de la imagen al tamaño del control y nombre las imágenes preparadas 1.GIF, 2.GIF, 3.GIF... La propiedad INTERVAL de TIMER está configurada en 100 (dependiendo de la situación) Por supuesto). Agregue el siguiente código a TIMER1_TIMER():
PRIVATE SUB TIMER1_TIMER()
DIM FILENAME AS STRING
STATIC INT AS INTEGER
INT = INT 1
FILENAME = "C:\WINDOWS\DESKTOP\" & INT & ".GIF" 'La ruta debe depender de la situación
IMAGE1.PICTURE = LOADPICTURE ( FILENAME)
IF INT gt; = 5 THEN INT = 0 'Cuánto mayor debe ser la condición INT depende de la situación
END SUB
Segundo esto situación: implementado con control PICTURECLIP.
El control PICTURECLIP debe agregarse en "Partes" y usarse junto con los controles IMAGEN e IMAGEN. Haga clic derecho en PICTURECLIP y use "Personalizar" en las propiedades - Cargar imagen - "Propiedades generales" - Defina los valores de "Fila, columna" (los valores de fila y columna se establecen provisionalmente en 18 en este ejemplo).
El código del programa es el siguiente:
DIM A AS INTEGER
PRIVATE SUB form_LOAD ()
PICTURE1.PICTURE = PICTURECLIP.GRAPHICCELL(1)
A = 1
TIMER1.INTERVAL = 100
END SUB
PRIVATE SUB TIMER_TIMER ()
A = A 1: SI A = 18 ENTONCES A = 0
PICTURE1.PICTURE = PICTURECLIP.GRAPHICCELL(A)
END SUB
Este método consiste en dividir una imagen en varias filas y columnas y luego mostrar cada parte por turno. Por lo tanto, es mejor preparar una imagen con un patrón de contenido independiente cada cierto espacio entre filas y columnas. Si es un patrón continuo y general, el efecto será Él. sólo "mover" pero no "dibujar".
Tercer método: actualmente existen en el mercado muchos programas para crear animaciones GIF. Por ejemplo, existe un SHAREWARE (32 bits) llamado GIF CONSTRUTION SET que puede crear fácilmente archivos de gráficos GIF dinámicos. Utilice el control ANIGIF en VB para "reproducir" la imagen GIF preparada. Su propiedad se establece en el nombre del archivo GIF que se reproducirá y el control reproducirá automáticamente la animación GIF cuando el programa se esté ejecutando. Por supuesto, el control ANIGIF debe agregarse en "Partes" antes de poder usarlo. Este método no requiere mucho código y el efecto es bueno (porque generalmente hay una función de vista previa al hacer animaciones GIF), por lo que se recomienda que todos usen este método.
El control WebBrowser1 puede abrir GIF y FLASH:
Proyecto----Componentes----Agregar controles de Internet de Microsoft
--- --- -------------------------------
Sub privado Form_Load()
WebBrowser1.Navigate "f:\aa.gif"
End Sub
Las anteriores son algunas de mis experiencias en programación solo como referencia. Espero que puedas aprender más. Intente resolverlo. y practique más para encontrar un método mejor.