vb红绿灯自动切换_vb做红绿灯程序

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

Private Sub Form_Load()

Shape1.BackColor = &H80000000

Shape1.BorderColor = RGB(0, 0, 0)

Shape2.BackColor = &H80000000

Shape2.BorderColor = RGB(0, 0, 0)

Shape3.BackColor = &H80000000

Shape3.BorderColor = RGB(0, 0, 0)

Form1.Tag = 0

End Sub

Private Sub Timer1_Timer()

Select Case Form1.Tag

Case Is = 0, 1, 2, 3, 4, 5, 6, 7, 8, 9

Shape1.BackColor = RGB(0, 255, 0)

Shape1.BorderColor = RGB(0, 255, 0)

Shape2.BackColor = &H80000000

Shape2.BorderColor = RGB(0, 0, 0)

Shape3.BackColor = &H80000000

Shape3.BorderColor = RGB(0, 0, 0)

Case Is = 10, 11, 12

Shape2.BackColor = RGB(255, 255, 0)

Shape2.BorderColor = RGB(255, 255, 0)

Shape1.BackColor = &H80000000