在VB中，怎样将计时器置零并重新计时？

来源：百度知道 编辑：UC知道 时间：2024/05/21 23:29:58
在窗体中，有开始计时、暂停计时、和置零并重新计时3个按钮。
那置零并重新计时的按钮，怎样编写？
格式是00:00:00

Private lSec As Long, lMin As Long, lHour As Long

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

Private Sub Timer1_Timer()
lSec = lSec + 1
If lSec = 60 Then
lMin = lMin + 1
lSec = 0
If lMin = 60 Then
lHour = lHour + 1
lMin = 0
End If
End If
Repaint
End Sub

Private Sub cmdBeg_Click()
Timer1.Enabled = True
End Sub

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

Private Sub cmdReset_Click()
Reset
Repaint
End Sub

Private Sub Repaint()
txtHour.Text = lHour
txtMin.Text = lMin
txtSec.Text = lSec
End Sub

Private Sub Reset()
lSec = 0
lMin = 0
lHour = 0
End Sub

你把计时器设为1000
然后在它的事件中每次设置变量自加1
置零就是置变