Question

VB编写一个倒计时的程序

我们要编写一个VB倒计时的程序，界面、功能等如以下截图。我写了代码后执行却不显示倒计时，直接过大概2秒后就显示“0”然后跳出“时间到”的对话框了，这是怎么回事？为什么啊？我的代码哪里错了吗？求教大神~~~~





Answer 1

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

Answer 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