Question

vb中 lable里的文字颜色不断变换

各位高手，我想让lable里的字不断变颜色，就像QQ里刚上线一样，不断的闪，在线等..........
最少可变5种颜色

Answer 1

添加一个标签框,一个计时器,运行后,每秒钟变化两次,一直变化
Private Sub Form_Load()
Timer1.Interval=500
Timer1.Enabled=True
End Sub

Private Sub Timer1_Timer()
Randomize
Label1.BackColor=Rgb(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))
End Sub

Answer 2

加一个timer控件 设置interval的值为500(可以自己调整)
代码
Private Sub Timer1_Timer()
If Label1.BackColor = RGB(255, 0, 0) Then

Label1.BackColor = RGB(0, 255, 0)
Else
Label1.BackColor = RGB(255, 0, 0)
End If

End Sub