Sitio web de resúmenes de películas - E-sports - Programa de subtítulos rodantes de diseño Vb
Programa de subtítulos rodantes de diseño Vb
'Coloque Imagen1 en la parte superior del Formulario1, Coloque Etiqueta1 en la parte superior de la Imagen1 y Coloque el Temporizador1 en la parte superior del formulario
Opción explícita
Sub privado Form_Load()
Label1.Caption = "Windows2000"
Timer1.Enabled = True
Timer1.Interval = 10 'Ajusta este valor para controlar la velocidad de movimiento de la etiqueta 1
Imagen1.ScaleMode = 3
Yo.ScaleMode = 3
' Imagen1.ScaleMode = 3
Yo.Picture = LoadPicture("D :\bliss .jpg")
End Sub
Sub Timer1_Timer()
Si Label1. ;= 0 - Label1.Top Entonces Label1.Top = Imagen1.ScaleHeight
Etiqueta1.Top = Etiqueta1.Top - 1
End Sub