Question

vb中如何设置文字颜色每秒变化一次

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

追问

谢谢

请问Private Sub Form_Load()是什么意思