vb红绿灯自动切换_vb中如何利用计时控件设置红绿灯自动切换？

满意答案

Dim I As Integer

Private Sub OBgreen_GotFocus()

Tred.Enabled = False

Tgreen.Enabled = True

Tyellow.Enabled = False

End Sub

Private Sub OBred_GotFocus()

Tgreen.Enabled = False

Tred.Enabled = True

Tyellow.Enabled = False

End Sub

Private Sub OByellow_GotFocus()

I = I + 1

Tred.Enabled = False

Tgreen.Enabled = False

Tyellow.Enabled = True

End Sub

Private Sub Tred_Timer()

OByellow.SetFocus

End Sub

Private Sub Tyellow_Timer()

If I Mod 2 = 1 Then

OBgreen.SetFocus

ElseIf I Mod 2 = 0 Then

OBred.SetFocus

End If

End Sub

Private Sub Tgreen_Timer()

OByellow.SetFocus

End Sub

02分享举报