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