该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
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
Shape1.BorderColor = RGB(0, 0, 0)
Shape3.BackColor = &H80000000
Shape3.BorderColor = RGB(0, 0, 0)
Case Is = 12, 13, 14, 15, 16, 17, 18, 19, 20, 21
Shape3.BackColor = RGB(255, 0, 0)
Shape3.BorderColor = RGB(255, 0, 0)
Shape1.BackColor = &H80000000
Shape1.BorderColor = RGB(0, 0, 0)
Shape2.BackColor = &H80000000
Shape2.BorderColor = RGB(0, 0, 0)
Case 22
Form1.Tag = 1
End Select
Form1.Tag = Form1.Tag + 0
End Sub