Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: payo22 en Miércoles 8 de Septiembre de 2004, 17:12
Título: Mover Image Dentro De Un Form
Publicado por: payo22 en Miércoles 8 de Septiembre de 2004, 17:12
Hola Maestros:
Quiero preguntarles si existe alguna forma de mover un contro Image dentro de un form, lo que pretendo hacer es digamos una animacion de que cuando cargue el formulario mi imagen se mueva de una esquina hacia el centro , pero no se si eso se pueda hacer en VB.
gracias por todo.
Título: Re: Mover Image Dentro De Un Form
Publicado por: RadicalEd en Miércoles 8 de Septiembre de 2004, 17:55
MUY FACIL CON UN TIMER COLOCA LA IMAGE EN UNA ESQUINA Y DILE IMAGE1.LEFT=POSICION Y IMAGE1.TOP=POSICION ESO TE DARA UNA SENSACION DE ANIMACION
Título: Re: Mover Image Dentro De Un Form
Publicado por: payo22 en Miércoles 8 de Septiembre de 2004, 18:11
voy a probarlo muchas gracias ,por cierto como haria uso el timer?
Título: Re: Mover Image Dentro De Un Form
Publicado por: RadicalEd en Miércoles 8 de Septiembre de 2004, 18:55
PUEDES REPETIR LO ULTIMO COMO ASI?
Título: Re: Mover Image Dentro De Un Form
Publicado por: payo22 en Miércoles 8 de Septiembre de 2004, 19:08
perdon no entendi tu mensaje anterior, si te refieres a la pregunta que hago es :
me dices que puedo utilizar el Control Timer para dar el efecto de movimiento a mi imagen ahora mi pregunta era :
como puedo utilizar el Contro Timer , es decir, como uso los milisegundos o como seria?
Título: Re: Mover Image Dentro De Un Form
Publicado por: RadicalEd en Miércoles 8 de Septiembre de 2004, 20:41
DALE EL INTERVALO QUE QUERAS ENTRE MAS PEQUEÑO MAS RAPIDO SERA LA ANIMACION
Título: Re: Mover Image Dentro De Un Form
Publicado por: payo22 en Miércoles 8 de Septiembre de 2004, 20:56
ok
me podrias guiar como iria el codigo por favor
es decir si poner un ciclo o como ?
Título: Re: Mover Image Dentro De Un Form
Publicado por: RadicalEd en Miércoles 8 de Septiembre de 2004, 23:10
LISTO AMIGO VA ASI
Código: Text
Private Sub Form_Load()
On Error Resume Next
Timer1.Interval='valor que queras'
Image1.Left=0
Image1.Top=0
End Sub
Private Sub Timer1_Timer()
Dim x
For x=0 To 'posicion que queras' Step 10 'LA VEOCIDAD A DAR