谁能给我一个VB计时器的代码啊？

来源：百度知道 编辑：UC知道 时间：2024/06/05 20:43:51
窗体上三个控件！
一个标签！
两个命令按扭！

按第一个按扭开始计时！按第二个暂停！然后再按第一个继续计时！

时间格式：00：00：00

谢谢各位大侠了！

先在属性栏里把Timer的Interval属性改为非0，才会运行，如改为“1000”，其他的2楼正确。
Private Sub Command1_Click()'开始
Timer1.Enabled = 1
End Sub

Private Sub Command2_Click()’暂停
Timer1.Enabled = 0
End Sub

Private Sub Timer1_Timer()
Static i
i = i + 1
Label1.Caption = Format(i \ 3600 & ":" & (i Mod 3600) \ 60 & ":" & i Mod 60, "hh:mm:ss")
End Sub

Private Sub Command1_Click()'开始
Timer1.Interval = 1
End Sub

Private Sub Command2_Click()’暂停
Timer1.Interval = 0
End Sub

Private Sub Timer1_Timer()
Static i
i = i + 1
Label1.Caption = Format(i \ 3600 & ":" & (i Mod 3600) \ 60 & ":" & i Mod 60, "hh:mm:ss")
End Sub

把他的那个interval换成Enabled就可以 了！！！！！！！！！！

Private Sub Command1_Click()'开始
Timer1.Enabled = 1
End Sub

Private Sub Command2_Click()’暂停
Timer1.Enabl