VB编写一个倒计时的程序

2024-11-20 11:09:34

推荐回答（2个）

回答1：

完全满足你的要求，需要源文件给地址。

回答2：

我试了试在 XP上问题
这样改一下
Dim i As Long
Private Sub Command1_Click()
i = 20
Timer1.Enabled = True
Label1.Caption = i
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Label1.Caption = i
If i > 0 Then
i = i - 1
Else
Timer1.Enabled = False
MsgBox "时间到!!"
End If
End Sub