Question

我尝试使用一个计时器来更改标签颜色两次..

Private Sub Timer1_Timer()
Timer1.Interval = Timer1.Interval + 1000
If (Timer1.Interval = 1000) Then
    Label1.ForeColor = vbRed
End If
If (Timer1.Interval = 2000) Then
    Label1.ForeColor = vbBlue
End If

请帮帮我，谢谢^ _ ^

Answer 1

感谢任何人回答我的问题David T. Macknet＆amp;查克...查克告诉我这样做

Private Sub Timer1_Timer()
Timer1.Interval = Timer1.Interval + 1000
If (Timer1.Interval >= 1000) Then
    Label1.ForeColor = vbRed
End If
If (Timer1.Interval <= 2000) Then
    Label1.ForeColor = vbBlue
End If

它的工作并用一个计时器改变颜色两次...... 谢谢你，对于本网站的每一个人来说，^ _ ^

如何在（VB 6.0）中使用一个计时器更改标签颜色

1 个答案: