模型:窗体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'颜色自己调整
原创文章,作者:Rosmontics,如若转载,请注明出处:https://rosmontis.com/archives/79