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

合集下载
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

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

相关文档
最新文档