急求 vb高手解答，设计一个能控制速度的滚动字幕程序

Question

显示字幕的方框用文本框。速度包含慢速、中速和快速3种，分别用3个单选按钮表示（用框架控件包住）。程序运行后，方框中的文字从左向右移动。单击下面的某一按钮，方框中的文字格式和速度能相应地改变

Answer 1

不给分就太不对了，这里是简单的演示，给你一个思路。按照图片上的布局摆放控件，命名在左下角。然后把上面的代码复制粘贴就OK了

源码：

Option Explicit

Dim str As String

Private Sub cmdClose_Click()

End

End Sub

Private Sub cmdStart_Click()

str = Text1.Text

Timer1.Enabled = True

Text1.Locked = True

End Sub

Private Sub cmdStop_Click()

Timer1.Enabled = False

Text1.Enabled = True

End Sub

Private Sub Form_Load()

Option1.Item(1).Value = True

Timer1.Enabled = False

End Sub

Private Sub Option1_Click(Index As Integer)

Select Case Index

Case 0

Timer1.Interval = 500

Case 1

Timer1.Interval = 250

Case 2

Timer1.Interval = 50

End Select

End Sub

Private Sub Timer1_Timer()

Text1.Text = Space(2) + Text1.Text

If (Len(Text1.Text) > 50) Then

Text1.Text = str

End If

End Sub