vb 用timer控制信号灯，明天要考试了，高手帮忙

来源：百度知道 编辑：UC知道 时间：2024/05/27 16:59:25
用一个timer事件控制红绿黄三个灯，红灯2秒，绿灯3秒，黄灯一秒，谢谢了

将分割线下面的文字用记事本保存，编码为ANSI，扩展名为.frm，用VB打开即可
-------------------我是神奇的分割线----------------
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3630
ClientLeft = 60
ClientTop = 450
ClientWidth = 5280
LinkTopic = "Form1"
ScaleHeight = 3630
ScaleWidth = 5280
StartUpPosition = 3 '窗口缺省
Begin VB.Timer Timer1
Interval = 3000
Left = 3120
Top = 2040
End
Begin VB.Shape Shape1
BackColor = &H0000FF00&
BackStyle = 1 'Opaque
Height = 495
Left = 3000
Shape = 3 'Circle
Top = 840
Width = 495
End
End
Attribute VB_Name = "Form1"
Attribut