Red de conocimiento informático - Problemas con los teléfonos móviles - Cómo hacer que un cuadro de etiqueta se mueva hacia arriba y hacia abajo en VB

Cómo hacer que un cuadro de etiqueta se mueva hacia arriba y hacia abajo en VB

VB puede usar el control Temporizador para mover el control Etiqueta hacia arriba y hacia abajo en el formulario.

Control del temporizador: al generar el evento del temporizador, el control del temporizador puede ejecutar código regularmente a intervalos.

Propiedad superior, devuelve o establece la distancia entre la parte superior interior del objeto y el borde superior de su contenedor.

Código de ejemplo:

Private Sub Form_Load()

Timer2.Enabled = False

Timer1.Enabled = True

Timer1.Interval = 500

Timer2.Interval = 500

Fin Sub

Sub Timer1_Timer() privado

Etiqueta1. Arriba = Etiqueta1.Top 100

Si Etiqueta1.Arriba Etiqueta1.Altura gt; Me.Altura Entonces

Temporizador1.Enabled = Falso

Temporizador2.Enabled = Verdadero

Finalizar si

End Sub

Private Sub Timer2_Timer()

Label1.Top = Label1.Top - 100

Si Label1.Top <= 0 Entonces

Timer2.Enabled = False

Timer1.Enabled = True

Finalizar si

End Sub

Código de ejemplo 2:

Dim bl As Boolean

Sub privado Form_Load()

bl = 0

Me.Timer1.Interval = 500

End Sub

Private Sub Timer1_Timer()

Si bl = 0 Luego 'Abajo

Label1.Top = Label1.Top 500

If Label1.Top gt; = Form1.ScaleHeight Then

bl = 1 'Arriba

Finalizar si

De lo contrario 'Arriba

Etiqueta1.Top = Etiqueta1.Top - 500

Si Etiqueta1.Top lt;= 0 Entonces

bl = 0 'Abajo

Fin si

Fin Sub