Question

VB十字路口交通灯控制

Answer 1

'窗体上用图形控件画一个圆，并将其Index属性设置为0，再画一个时钟控件，复制代码过去即可。
Private Sub Form_Load()
Me.AutoRedraw = True
Timer1.Enabled = True
Timer1.Interval = 2000
Shape1(0).Visible = False
For i = 1 To 3
Load Shape1(i)
If i = 1 Then Shape1(i).FillColor = vbYellow
If i = 2 Then Shape1(i).FillColor = vbGreen
If i = 3 Then Shape1(i).FillColor = vbYellow
Shape1(i).Visible = False
Next
End Sub

Private Sub Timer1_Timer()
Static t As Long
i = t Mod 4
If i = 0 Then
Shape1(0).Visible = True
Shape1(1).Visible = False
Shape1(2).Visible = False
Shape1(3).Visible = False
ElseIf i = 1 Then
Shape1(0).Visible = False
Shape1(1).Visible = True
Shape1(2).Visible = False
Shape1(3).Visible = False
ElseIf i = 2 Then
Shape1(0).Visible = False
Shape1(1).Visible = False
Shape1(2).Visible = True
Shape1(3).Visible = False
ElseIf i = 3 Then
Shape1(0).Visible = False
Shape1(1).Visible = False
Shape1(2).Visible = False
Shape1(3).Visible = True
End If
t = t + 1
End Sub