急求！vb制作滚动字幕代码

来源：百度知道 编辑：UC知道 时间：2024/05/17 07:47:43
要求用时钟控件和滚动条调节和控制字幕滚动速度,从右向左连续滚动.

加入一个命今按钮：command1.
加入一个文本框：text1.
加入一个时间控件：timer1.
加入一个横向的滚动条：hscroll1.把：min属性设为2，max属性设为100，smallchange设为1。
下面代码：

Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 10
End Sub

Private Sub Form_Load()
Command1.Caption = "开始"
Text1.BackColor = &H8000000F
Text1.BorderStyle = 0
Text1.Text = "测试区域"
Timer1.Enabled = False
End Sub

Private Sub HScroll1_Change()
Timer1.Interval = 10 * HScroll1.Value / 10
End Sub

Private Sub HScroll1_Scroll()
Timer1.Interval = 10 * HScroll1.Value / 10
End Sub

Private Sub Timer1_Timer()
Text1.Left = Text1.Left - 50
If Text1.Left < 0 Then
Text1.Left = Form1.Width
End If
End Sub
技术含量不高，供参考！

就是把控件制作成移动的就行了