VB中实现字体自动循环变色

模型：窗体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'颜色自己调整

文章评论