subir/bajar imagen con tiempo TIMER predeterminado

xaxa
23 de Noviembre del 2004
hola

me gustaria saber como hacer para q 1 imagen despues de un tiempo TIMER aparezca poco a poco de abajo hasta arriba hasta mostrarse toda y despues baje y vaya desapareciendo.

JB
23 de Noviembre del 2004
Hola.

No se si esto es lo que necesitas, pero hace lo que pides.

En una forma agragas un Timer y un PictureBox (o el componente que desees mover) y el código es el siguiente.

Option Explicit
Dim Up As Boolean

Private Sub Form_Load()
Up = True
End Sub

Private Sub Timer1_Timer()

If Up Then
Picture1.Top = Picture1.Top - 100
If Picture1.Top <= 0 Then Up = False
Else
Picture1.Top = Picture1.Top + 100
If Picture1.Top > Me.Height Then
MsgBox "Listo"
Timer1.Interval = 0
End If
End If
End Sub


Saludos

JB
23 de Noviembre del 2004
Perdón, me faltó decirte que el intervalo del timer lo pongas en 600.

Si no quieres que se vea tan pausado, lo que le agregas al .Top hazlo mas chico al igual que el intervalo.

Por ej: (Con el intervalo del timer en 50)

Dim Up As Boolean

Private Sub Form_Load()
Up = True
End Sub

Private Sub Timer1_Timer()

If Up Then
Picture1.Top = Picture1.Top - 10
If Picture1.Top <= 0 Then Up = False
Else
Picture1.Top = Picture1.Top + 10
If Picture1.Top > Me.Height Then
MsgBox "Listo"
Timer1.Interval = 0
End If
End If
End Sub


Saludos

xaxa
23 de Noviembre del 2004
hola jb gracias x contestar!!

no es bien bien esto lo q queria decir:) ; me referia a q la imagen salga de 0 y suba y baje segun un timer puesto.
(n se si me he expresao bien..)

es parecido a la salida de las imagenes del juego pie bill gates

salu2