una consulta amigos foreros.

es posible hacer imagenes animadas en visual basic ???


ejemplo si yo hago un carro entonces que las ruedas del carro se muevan. o si hago una persona que la persona se vea como si estuviera camiando.


atte: gino serrano

Tengo que espero te sirva:

Dim nPOSIMG%, nCON%, nBAN%
Function INICIALIZAR()
nPOSIMG = 9
nCON = 0
nBAN = 1
End Function
Function CAMINAR()
'Control para detener el bucle
If nCON = 155 Then
Timer1.Enabled = False
Cmd_nuevo.Visible = True
Cmd_salir.Visible = True
End If
'Cambia el gráfico, obteniendolo de la matriz según la posición nPOSIMG
nPOSIMG = nPOSIMG - 1
nCON = nCON + 1
If nBAN = 0 Then Timer1.Interval = 100
'Activa el semaforo en amarillo
If nCON = 55 Then
Img_semama.Visible = True
End If
'Activa el semáforo en rojo y hace una pausa en el caminante
If nCON = 66 Then
Img_semama.Visible = False
Img_semroj.Visible = True
Timer1.Interval = 3000
nBAN = 0
End If
'Activa el semáforo en verde
If nCON = 67 Then
Img_semroj.Visible = False
Img_semver.Visible = True
End If
If nPOSIMG = 0 Then nPOSIMG = 8
Pic_oso.Picture = PictureClip1.GraphicCell(nPOSIMG)
Pic_oso.Move Pic_oso.Left + 70, Pic_oso.Top + 50 'Mueve en diagonal
End Function
Private Sub Cmd_nuevo_Click()
Timer1.Enabled = True
Pic_oso.Left = 0
Pic_oso.Top = 0
CAMINAR
INICIALIZAR
End Sub
Private Sub Cmd_salir_Click()
End
End Sub
Private Sub Form_Load()
INICIALIZAR
End Sub
Private Sub Timer1_Timer()
CAMINAR
End Sub

Para correrlo deberás utilizar: 1timer, 2 botnoes de comando, 3 imágenes (Yo la he utilizado para hacer un semáforo) y lo mas importante 1 pictureclip qué es una serie de imágenes, en esa imágen esta cada cada paso. Lo puedes simular utilizando la misma imágen para probar.

Cualquier duda oszapata@gmail.com, espero ayudarte.