Question

VB怎么让字体颜色有规律的自动变化？

如果这个不能变化 我还有一个问题 怎么让Label的字体的颜色 我一按按钮 就可以变为其他颜色
举例 比如 我现在Label 的字体是灰色
然后我按一下变化字体的按钮
就变成红色
然后我想再按一下按钮
又变为绿色了（举例结束）
我就是想实现这样的字体变化 请问谁有办法？好的话 我会加分

Answer 1

可以用定时器来实现
以下代码示例，Label中的字体颜色，有规律地依次变化为红、黄、蓝
模型：窗体form1，定时器Timer1，标签Label1
Private Sub Form_Load()
Timer1.Interval = 500'启动定时器，并将触发间隔设置为0.5s
End Sub

Private Sub Timer1_Timer()

If Label1.ForeColor = vbRed Then'如果Label字体颜色为红色
Label1.ForeColor = vbYellow'则变为黄色
ElseIf Label1.ForeColor = vbYellow Then'如果是黄色
Label1.ForeColor = vbBlue'则变为蓝色
Else
Label1.ForeColor = vbRed'如果是其他颜色，则变为红色；从而实现红黄蓝交替
End If
End Sub

Answer 2

Private Sub Command1_Click()
Randomize
r = Int(Rnd * 255)
g = Int(Rnd * 255)
b = Int(Rnd * 255)
Label1.ForeColor = RGB(r, g, b)
End Sub
颜色随机产生

追问

是一按按钮 就可以随机产生的么？ 还是弄到窗体那里？

还有还有

怎么让8个Label控件 也是按一下 产生一下随机字体呢？

追答

按一下随机产生一次，再按一下又再变化一次，不用加什么部件，一个按扭，一个标检就OK了