Question

怎样在VB中运行程序的开始，就能使在标签里的字自动变换字体颜色？

不需要操作任何步骤就可以使已经在标签里设置要的文字自动变换颜色，如何编写这样的代码呢。如果觉得我说的不是很清楚请留下您的QQ号，我会主动和您联系的，谢谢！

Answer 1

很简单哦。窗体上画一个timer控件，用如下代码就行：
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 300
End Sub

Private Sub Timer1_Timer()
Dim r As Byte, g As Byte, b As Byte
Randomize
r = Int(Rnd * 256)
g = Int(Rnd * 256)
b = Int(Rnd * 256)
Label1.ForeColor = RGB(r, g, b)
End Sub

Answer 2

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
Label1.ForeColor =rgb(255*rnd(),255*rnd(),255*rnd())
End Sub

Answer 3

不需要操作?
用timer控件,定时改变

Answer 4

I don,t know!