vb计时器源代码

来源：百度知道 编辑：UC知道 时间：2024/06/21 22:58:19
要这样一个计时器：按“开始”按钮，开始计时，按钮边为“继续”。按“暂停”，停止计时，显示记录的时间数。任何时候按“重置”按钮，时间读数都将重置为0。

可以使用以下代码，此程序没有使用时间控件，精确度为百分之一秒，不存在时间控件每秒只能触发18次的限制，粘贴代码时注意把控件名和代码里的控件名相对应，有问题消息我

Dim blnStop As Boolean
Dim sngPauseTime As Single
Dim sngTime As Single

Private Sub cmdPause_Click()
blnStop = False
sngPauseTime = sngTime
cmdStart.Enabled = True
End Sub

Private Sub cmdRsest_Click()
blnStop = False
Label1.Caption = "0:0:0.00"
sngPauseTime = 0
sngTime = 0
cmdStart.Enabled = True
cmdStart.Caption = "开始"
End Sub

Private Sub cmdStart_Click()
Dim sngNow1 As Single
Dim iHour As Integer
Dim iMinute As Integer
Dim iSecond As Integer
Dim iMSecond As Integer
cmdStart.Caption = "继续"
cmdStart.Enabled = False
sngNow1 = Timer
blnStop = True
Do
DoEvents
If blnStop = False Then Exit Do
sngTime = Timer - sngNow1 + sngPauseTime
iHour = sngTime \ 3600
iMinute = (sngTime - iHour * 3600)