5. Programación con VB: Diseñe un programa de subtítulos fluido (usando control de temporizador)

¿Privado?Sub?Check1_Click()

Si?Check1.Value?=?1?Then Label1.FontName?=?"script oficial"

Else Label1 .FontName?=?"宋体"

Fin?Si

Fin?Sub

Privado?Sub?Check2_Click()

Si ?Check2.Value?=?1?Entonces Label1.FontBold?=?True

De lo contrario, Label1.FontBold?=?False

Fin?If

Fin ?Sub

Privado?Sub?Check3_Click()

If?Check3.Value?=?1?Then Label1.FontSize?=?65

Else Label1 .FontSize?=?25

¿Fin?Si

Fin?Sub

Privado?Sub?Form_Load()

Verificar1. Valor ?=?0

Check2.Value?=?0

Check3.Value?=?0

Opción3.Value?=?True

Timer1.Interval?=?50

Fin?Sub

Privado?Sub?Option1_Click()

Timer1.Enabled?=?True< / p>

Fin?Sub

Privado?Sub?Option2_Click()

Temporizador1.Enabled?=?False

Fin?Sub

¿Privado?Sub?Option3_Click()

Etiqueta1.ForeColor?=?vbRed

Fin?Sub

Privado?Sub?Option4_Click()< / p>

Label1.ForeColor?=?vbBlue

Fin?Sub

Privado?Sub?Timer1_Timer()

Si?Label1.Left? ? Label1.Width?gt;?0?Then Label1.Move?Label1.Left?-?30

Else Label1.Left?=?Form1.ScaleWidth

Fin?If< / p>

Fin?Sub

Privado?Sub?VScroll1_Change()

Temporizador1.Interval?=?VScroll1.Value

Fin?Sub< / p>

Se han agregado algunas cosas basadas en los subtítulos del móvil