Question

求设计VB 滚动字幕程序

实验内容
设计一个能控制字体、字号、字形和速度的滚动字幕程序。
（三）实验要求
1．显示字幕的方框可以用标签或文本框。
2．字体包含宋体、黑体和楷体3种，分别用3个单选按钮表示（用框架控件包住）。
3．字号包含小号字、中号字和大号字3种，分别用3个单选按钮表示（用框架控件包住）。
4．字形包含粗体、斜体和下划线3种，分别用3个复选框表示（用框架控件包住）。
5．速度包含慢速、中速和快速3种，分别用3个单选按钮表示（用框架控件包住）。
6．程序运行后，方框中的文字从左向右移动。
7．单击下面的某一按钮，方框中的文字格式和速度能相应地改变。
8．界面和属性由学生自行设计和设置。

Answer 1

Option Explicit

Dim Ls As Boolean

Private Sub Check1_Click()

 Label1.FontBold = IIf(Check1.Value = 1, True, False)

End Sub

Private Sub Check2_Click()

 Label1.FontItalic = IIf(Check2.Value = 1, True, False)

End Sub

Private Sub Check3_Click()

 Label1.FontUnderline = IIf(Check3.Value = 1, True, False)

End Sub

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Form_Load()

Label1.Left = Picture1.Width

Timer1.Interval = 30

End Sub

Private Sub Form_Unload(Cancel As Integer)

Timer1.Enabled = False

End Sub

Private Sub Opt_sd_Click(Index As Integer)

Select Case Index

 Case 0: Timer1.Interval = 100

 Case 1: Timer1.Interval = 60

 Case 2: Timer1.Interval = 30

End Select

End Sub

Private Sub Opti_zt_Click(Index As Integer)

Select Case Index

 Case 0: Label1.FontName = "宋体"

 Case 1: Label1.FontName = "黑体"

 Case 2: Label1.FontName = "楷体"

 Case 3: Label1.FontSize = 9

 Case 4: Label1.FontSize = 12

 Case 5: Label1.FontSize = 16

End Select

End Sub

Private Sub Timer1_Timer()

If Ls Then Exit Sub

Ls = True

DoEvents

If Opt_fx(0).Value Then  '向左

  If Label1.Left >= Picture1.Width Then

     Label1.Left = -Label1.Left

  End If

  Label1.Left = Label1.Left + 50

ElseIf Opt_fx(1).Value Then  '向右

  If Label1.Left <= (-Label1.Width) Then

     Label1.Left = Picture1.Width

  End If

  Label1.Left = Label1.Left - 50

Else  '摇头

  If Label1.Left + Label1.Width >= Picture1.Width Then Opt_fx(2).Tag = "左"

  If Label1.Left <= 0 Then Opt_fx(2).Tag = "右"

  If Opt_fx(2).Tag = "右" Then

     Label1.Left = Label1.Left + 50

  Else

     Label1.Left = Label1.Left - 50

  End If

End If

Ls = False

End Sub