VB中一个新手问题

来源：百度知道 编辑：UC知道 时间：2024/06/07 15:52:55
我新学VB
想知道 3个Label 如何 每秒显示一个
就跟 红绿灯一样
是 用 label控件 弄3个 依次为 红黄蓝的 小方块
然后 让其 从 红－黄－绿－红－黄
依次循环 就是 红暗暗 暗黄暗 暗暗绿 这样循环的
这里对 回答问题的人 表示感谢
使我 描述得不完整 对不起了

请参考如下代码，将Shape控件改用Labe控件：
Option Explicit
Dim a As Byte

Private Sub Command1_Click()
a = a + 1
If a = 1 Then
Shape1.FillColor = vbRed
ElseIf a = 2 Then
Shape1.FillColor = vbYellow
ElseIf a = 3 Then
Shape1.FillColor = vbGreen
ElseIf a = 4 Then
Shape1.FillColor = vbYellow
ElseIf a > 4 Or a = 1 Then
a = a - 4
Shape1.FillColor = vbRed
End If

补充：
Option Explicit
Dim a As Byte

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
a = a + 1
If a = 1 Then
Label1.Visible = True
Label1.BackColor = vbRed
Label2.Visible = False
Label3.Visible = False
ElseIf a = 2 Then
Label2.Visible = True
Label2.BackColor = vbYellow
Label1.Visible = False
Label3.Visible = False
ElseIf a = 3 Then
Label3.Visible = True
Label3.BackColor = vbGreen
Label1.Visi