como puedo crear una animacion

Iniciado por Belial & Grimoire, 11 Agosto 2007, 09:49 AM

0 Miembros y 1 Visitante están viendo este tema.

Belial & Grimoire

hola

como puedo hacer una animacion desde visual basic 6

lo que quiero hacer.. es que una imagen vaya de izquierda a derecha y de derecha a izquierda....

pero no se que tengo que hacer...

alguien me podria ayudar

gracias  ;D
.                                 

Lambda

Cita de: makuvex_linux en 11 Agosto 2007, 09:49 AM
hola

como puedo hacer una animacion desde visual basic 6

lo que quiero hacer.. es que una imagen vaya de izquierda a derecha y de derecha a izquierda....

pero no se que tengo que hacer...

alguien me podria ayudar

gracias  ;D

no se si te referiras a usar un gif animado, si te refieres eso busca el componente ANIGIF esta en este mismo foro posteado con su crack.

Si te refieres a las propiedades left y top, puedes usar un timer q sume una unidad al top o al Left o se las reste, con esto conseguiras hacer q el control o imagen se mueva

saludos ;D

Belial & Grimoire

#2
hola

ok gracias...

pero como puedo hacer que un timer sume hasta algun intervalo y luego lo reste

por ejemplo...

si yo kisiera que image.left fuera de 120 hasta 8760 y de 8760 a 120 como lo podria hacer...

y el timer como podria hacer que sume la unidad.. ya que lo intente pero la imagen cuando ejecuto el form va de 120 a 8760 tan rapido que nisiquiera se nota como se desplaza... y lo que quiero hacer es que una imagen se desplaze de un lugar a otro, pero que se vea como se mueve, de una forma lenta...

alguien me podria ayudar con un ejemplo o lago?

espero su respuesta

gracias  ;D
.                                 

ActiveSheet

#3
es una opcion ojala te sirba

Código (vb) [Seleccionar]
Option Explicit
Dim a As String
Dim b As Boolean
Private Sub Form_Load()
Image1.Left = 120
Timer1.Interval = 1
a = 120
b = 1
End Sub
Private Sub Timer1_Timer()
If b = True Then
    a = a + 20
    Image1.Left = a
    If a = 8760 Then b = 0
End If
If b = False Then
    a = a - 20
    Image1.Left = a
    If a = 120 Then b = 1
End If
Me.Caption = a
End Sub


salu2




aun que si te interesa insertar un gif
me dices y te enseño a hacerlo sin dependencias de modulo,ActiveX, ni API`s

es banstante sencillo

Belial & Grimoire


hola


WOW... sorprendente...   :o :o :o

gracias a todos por las respuesta

el codigo me funiciono bastante bien.. gracias  ;D
.