Programación VB para principiantes, ingrese gambas
Dibuje dos controles de etiqueta idénticos (un control de temporizador) en el formulario. Establezca la propiedad Intervalo del control del temporizador en 200 y use el siguiente código para lograr lo que desea.
Private Sub Timer1_Timer()
Si (Label1.Left Label1.Width gt; = Form1.Width) Entonces
Si Label2.Visible = False Entonces
Etiqueta2.Left = 0 - Etiqueta2.Ancho
etiqueta2.top = etiqueta1.top
Fin si
Etiqueta2.Visible = Verdadero
Etiqueta2.Top = etiqueta1.top
Fin Si
Etiqueta1.Ancho = Formulario1.Ancho si
(Etiqueta1.Left gt ; = Form1.Width) Entonces
Etiqueta1.Left = 0
Etiqueta2.Visible = False
Fin
Si Etiqueta2. Visible = Verdadero Entonces
Etiqueta2.Left = Etiqueta2.Left 100
Finalizar si
Etiqueta1.Left = Etiqueta1.Left 100