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

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

 我来答

1个回答

#热议# 在购买新能源车时，要注意哪些？

亚马逊选品管家
2012-11-06 · TA获得超过643个赞

知道小有建树答主

回答量：805

采纳率：100%

帮助的人：278万

我也去答题访问个人页

关注

展开全部

用定时器，定时改变标签位置就好了，至于颜色，可以用随机数，随机生成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