VB倒计时问题

来源：百度知道 编辑：UC知道 时间：2024/05/23 18:46:21
1个timer，1个text，2个command（开始和停止）
请问下哪里错了，时间到了提示还是会出来，但是开始后数字不变

Dim s As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
s = Val(Text1.Text)
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
s = s - 1
If s = 0 Then
MsgBox "时间到了", 48, "注意"
Timer1.Enabled = False
End If
End Sub

是否是这样
Dim s As Integer
Private Sub Command1_Click()
s = Val(Text1.Text)
Timer1.Enabled = True

End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
s = s - 1
Text1 = s
If s <= 0 Then
MsgBox "时间到了", 48, "注意"
Timer1.Enabled = False
End If

End Sub

呵呵，你的计时器timer中的interval属性没改，默认的是0，改成1000就是一秒中变化一次，就是说它是以毫秒为单位的！