Question

VB 滚动字幕代码

题目介绍：

“滚动字幕板”是指人们在公共场所（如车站、机场等）经常见到的用来显示消息、广告、通知等内容的显示屏。滚动字幕的方式容易引起观众的注意，具有很好的宣传作用。本程序要求编制一个模拟滚动字幕版使用程序。

具体要求：

（1）启动程序，显示一个控制窗口。
（2）可以设定字幕汉字符；字符大小控制；字体、字号、颜色等控制；字幕滚动方向；
内景色、前景色；滚动速度、颜色自动变化等内容。
（3）此窗口上还有以下按钮“开始滚动” “恢复设置” “隐藏控制板” “退出”。
求代码。
可以帮忙制作上传 如果可以的话可以加分
感谢

Answer 1

加入一个命今按钮：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
技术含量不高，供参考！

追问

这样不是只能让“测试区域”从左往右滚动么……；
字符大小控制；字体、字号、颜色等控制；字幕滚动方向；内景色、前景色；滚动速度、颜色自动变化等内容。
（3）此窗口上还有以下按钮“开始滚动” “恢复设置” “隐藏控制板” “退出”。
这些完全没有没有办法加入啊……