Question

VB只用一个timer控制shape做出红绿灯

红灯先亮五秒，然后黄灯闪三次，然后绿灯亮五秒，然后黄灯闪三次，然后红灯亮五秒，如此循环
用绿灯用shape，如果其他的可以也可以用，只用一个timer
灯用shape

Answer 1

'控件一个shape1，一个timer1
Private Sub Form_Load()
   Timer1.Interval = 100
   Timer1.Enabled = True
   Shape1.Shape = 3
   Shape1.BackStyle = 1
   Shape1.BackColor = vbGreen
End Sub
Private Sub Timer1_Timer()
   Static n As Integer
   Shape1.BackStyle = 1
   Select Case n
      Case 1 To 50
         Shape1.BackColor = vbGreen
      Case 51 To 80, 131 To 160
         If n Mod 2 = 1 Then
            Shape1.BackColor = vbYellow
         Else
            Shape1.BackStyle = 0
         End If
         If n = 160 Then n = 0
      Case 81 To 130
         Shape1.BackColor = vbRed
   End Select
   n = n + 1
End Sub

追问

能用一个timer控制三个shape，吗，就是并排三个红绿灯，我是初学者，老师出的题有些难

追答

可以，那你绿灯时其他是消失还是？

追问

其他的变成灰色

追答

'控件shape三个shape1，shape2,shape3,一次用来显示红灯，黄灯，绿灯，一个timer1
Private Sub Form_Load()
   Timer1.Interval = 100
   Timer1.Enabled = True
   Shape1.Shape = 3
   Shape1.BackStyle = 1
   Shape1.BackColor = vbRed
   Shape2.Shape = 3
   Shape2.BackStyle = 0
   Shape2.BackColor = vbYellow
   Shape3.Shape = 3
   Shape3.BackStyle = 0
   Shape3.BackColor = vbGreen
End Sub
Private Sub Timer1_Timer()
   Static n As Integer
   Shape1.BackStyle = 0
   Shape2.BackStyle = 0
   Shape3.BackStyle = 0
   Select Case n
      Case 1 To 50
         Shape1.BackColor = vbRed
         Shape1.BackStyle = 1
      Case 51 To 80, 131 To 160
         If n Mod 2 = 1 Then
            Shape2.BackColor = vbYellow
            Shape2.BackStyle = 1
         End If
         If n = 160 Then n = 0
      Case 81 To 130
         Shape3.BackColor = vbGreen
         Shape3.BackStyle = 1
   End Select
   n = n + 1
End Sub