用VB设计一个能显示红绿灯倒计时的程序

2025-04-27 12:24:27

推荐回答（3个）

回答1：

弄个TIMER控件，每秒减一，当=0时，秒数回到10，并且红绿灯换颜色，

回答2：

Dim b As Boolean
Private Sub Form_Load()
Label1.Caption = 60
Timer1.Interval = 300
Label1.FontSize = 30
Label1.ForeColor = vbGreen
End SubPrivate Sub Timer1_Timer() If b = True Then
Label1.ForeColor = vbRed
Label1.Caption = Val(Label1.Caption) - 1
Else
Label1.ForeColor = vbGreen
Label1.Caption = Val(Label1.Caption) - 1
End If

If Label1.Caption = "0" Then Label1.Caption = "60": b = Not b
End Sub

回答3：

你把红绿灯的图片发我,在发下效果图,我帮你做.