En comparación con los programas estructurados, Visual Basic agrega la función de "método" de los objetos. Dominar completamente este "método" diferente de las propiedades de los objetos es extremadamente importante para el desarrollo de aplicaciones de visualización. A continuación, tome el método de movimiento de VB4.0 como ejemplo para ilustrar la aplicación de este método en la animación.
En este ejemplo, queremos utilizar el método de movimiento para completar el proceso de vuelo de una mariposa. Mediante la interrupción del cronómetro, en ciertos intervalos (0,2 segundos en este ejemplo), la posición de la mariposa se mueve en la pantalla y la forma de la mariposa cambia (alas extendidas y retraídas), de modo que el efecto temporal La visión se utiliza para ver la escena del vuelo de la mariposa. El movimiento de la posición de la mariposa se realiza mediante el método de movimiento. El formato utilizado por el método de movimiento es el siguiente:
Objeto.moveleft,arriba
Entre ellos, izquierda es la coordenada horizontal del límite izquierdo del objeto (eje x) y arriba es la coordenada vertical del límite superior del objeto (eje Y). En este ejemplo, el cuadro del objeto (cuadro de imagen). se denomina principal.
La imagen de las alas de la mariposa extendidas y plegadas la proporciona el archivo de mapa de bits bfly1.bmpbfly2.bmp, y se pueden producir otros archivos de mapa de bits voladores según sea necesario para que el efecto sea más realista.
En este ejemplo, la estructura del formulario y las propiedades de cada objeto se establecen de la siguiente manera:
Configuración de propiedades de objeto
Diseño de animación de vuelo de mariposa de título de formulario
nombre del marco de la imagen principal
imagenbfly1
imagenmarconombrealasabiertas
imagenbfly1
imagenmarconombrecerraralas
imagenbfly2
nombre del cuadro de comando comando1
títuloSalir&salir
nombredeltemporizador1
intervalo200
El programa relevante es relativamente simple, el código es el siguiente:
Programa de interrupción del temporizador:
PRIvateSubTimer-Timer()
EstáticoPickBmpAsInteger
Principal.MoveMain.Izquierda 20,Principal.Top-5
Si elige Bmp entonces
Main.Picture=OpenWings.Picture'Muestra la imagen de la mariposa abierta.
Demás
Main.Picture=Close Wings.Picture'Muestra la imagen de la mariposa cerrada.
Fin si
PickBmp=NotPickBmp'Alternarelvalor.
FinSub
Programa del botón de salida (salir):
PrivateSubCommand1-Click()
Descargarme
Fin
FinSub
De esta manera, utilizando el método de movimiento de VB y otras propiedades del objeto, se pueden lograr diseños de animación más complejos. ->