Question

VB6.0做个正计时器。怎么复位按钮清零后再开始不是从0开始了？

VB6.0做个正计时器。怎么复位按钮清零后再开始不是从0开始了？而是从复位停止的那个时间重新开始？怎么从0重新开始？Option ExplicitDim t1 As Date '定义正计时的时间Private Sub Command1_Click() '开始按钮Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() '暂停按钮Timer1.Enabled = FalseEnd SubPrivate Sub Command3_Click() '继续按钮Timer1.Enabled = TrueEnd SubPrivate Sub Command4_Click() '复位按钮Timer1.Enabled = FalseLabel1.Caption = "00:00:00"Text1.Text = Format(t1, "HH:MM:SS") '点击复位按钮后，把此时的计时时间给Text1End SubPrivate Sub Form_Load()Timer1.Enabled = FalseTimer1.Interval = 1000t1 = "00:00:00" '赋初值End SubPrivate Sub Timer1_Timer()t1 = t1 + "00:00:01" '自加1Label1.Caption = Format(t1, "HH:MM:SS") '显示正计时End Sub
比如点击复位按钮使Text1得到00:00:07, 再点击开始按钮，希望它从00:00:00开始，可是它却从07开始了，怎么办？难道正计时不能复位从0开始吗？谢谢大神了！





Answer 1

这段代码问题好多……

Private Sub Command1_Click()  '开始按钮
  t1 = "00:00:00"
  Timer1.Enabled = True
End Sub

改成这样就可以达到你的要求了。