VB制作自动滚动字幕窗体,

Question

字体向左移动，再从右边往左移动。。字体颜色随机改变，怎么做
还有一个开始按钮，点击开始，字幕滚动，然后开始按钮切换成停止按钮，可以停止

Answer 1

用定时器，定时改变标签位置就好了，至于颜色，可以用随机数，随机生成3个0-255之间的数值，然后用RGB函数给标签的ForeColor属性赋值就好了

追问

我是菜鸟中的菜鸟，能不能给程序啊

追答

在界面上放一个Label控件和Timer控件，名字默认就行，然后在代码编辑窗口中定义一个全局变量，名字叫Dire，用来记录当前的移动方向，然后在Form的Load时间中初始改值为“向左”，接着写定时器代码。

Dim Dire As String
'窗体Load事件
Private Sub Form_Load()
Dire = "向左"
End Sub
'定时器事件
Private Sub Timer1_Timer()
Dim NewColor As Long
Randomize
NewColor = RGB(Rnd() * 256, Rnd() * 256, Rnd() * 256)
Label1.ForeColor = NewColor
If Dire = "向左" Then
Label1.Left = Label1.Left - 10
If Label1.Left Me.ScaleWidth Then Dire = "向左"
End If
End Sub