subir/bajar imagen con tiempo TIMER predeterminado
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.
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.
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
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
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
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