| Para
hacer una animación podremos usar el siguiente código:
En un formulario insertamos un objeto PictureBox
y le asignamos a su propiedad autosize a True.
Supongamos que la animación que vamos
a crear consta de tres imágenes:
Añadimos las tres imágenes al formulario
con su propiedad visible = False. Su propiedad name será img creando
así una matriz de controles.
También insertaremos un objeto Timer con
un intervalo de 100 a 500 según deseemos que se produzca más
o menos rápido.
El código es el siguiente:
En el apartado general incluimos el siguiente
código:
Private Id As Integer
Private Sub Form_Load()
Id = 0
End Sub
Private Sub Timer1_Timer()
If Picture1.Picture = 3 Then Id = 0
Picture1.Picture = Id(img).Picture
Id = Id + 1
End sub |