ANIMACIÓN – DESPEGUE

Se hace una serie de 14 dibujos con el paintbrush de un mismo objeto que varien un poco: los dibujos de cohete0.bmp, cohete1.bmp, cohete2.bmp… cohete14.bmp

Se introduce un objeto Picture box con la propiedad picture( con el primer dibujo) y la propiedad resize = trae.

Se añade un objeto timer con la propiedad interval = 1, y un objeto hscroll con unas propiedades: min = 1, max = 501.

Se definirá una variable contador y se introduce el siguiente código.

Dim contador As Integer

Private Sub Form_Load()

contador = 0

HScroll1.Value = 1

End Sub

Private Sub HScroll1_Change()

Timer1.Interval = 501 - HScroll1.Value

Label1.Caption = HScroll1.Value

End Sub

Private Sub Timer1_Timer()

contador = contador + 1

If contador > 14 Then contador = 0

Picture1.Picture = LoadPicture("C:\PROGRAMACION2\Visual Basic\animacion\cohete" & contador & ".bmp")

End Sub