VB6.0自动红绿灯设计及代码

2022-07-13 23:17:12 文档大全网 [ 字体：小中大 ] [ 阅读： ]

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《VB6.0自动红绿灯设计及代码》，欢迎阅读！
红绿灯,代码,自动,设计,6.0
VB6.0 自动红绿灯无人红绿灯演示设计代码

代码：

Private Sub Timer1_Timer() If Image1.Visible = True Then

If Image4.Left < Form1.Width Then Image4.Left = Image4.Left + 100 Else

Image4.Left = -Image4.Width End If End If

i = i + 1

Select Case i Case Is <= 160

Image1.Visible = True Image3.Visible = False Image2.Visible = False Case Is <= 330

Image2.Visible = True Image1.Visible = False Image3.Visible = False Case Is <= 460

Image1.Visible = False Image2.Visible = False Image3.Visible = True Case Is <= 500

Image3.Visible = True Case Else

i = 0 End Select

End Sub