Question

VB6 用Timer控件编写计时器代码？求高手帮忙

紧急求VB6 用Timer控件编写计时器代码？
要求 在一个文本框（text1）,显示计时的格式为 h & " ： " m & " ： " & s 即：时：分：秒 ，三个按钮分别具有：开始计时，停止计时，复位时间为：00:00:00 格式。
我不知道能不能用 Timer控件能不能实现，实现代码是什么？
谢谢了！

Answer 1

怎么能用timer控件做这种计时呢。。。。timer控件根本就不准确，1000毫秒在timer控件看来其实只是990，这是windows系统决定的。。。要精确需要用Timer函数，Timer控件只是用来刷新显示用的。。。
我承认。。在计时不长的时候两个程序没有什么区别，但是，1.计时时间长了之后差距就会变大2.一旦你的程序除了计时还有复杂运算的时候，在你的程序无暇处理系统发送的Timer信息的时候，Timer信息就会被丢弃，造成计时不准（第二种情况实际上很容易发生的）

修改如下：

Dim stime, base
Private Sub Command1_Click() '开始计时按钮
If Not Timer1.Enabled Then
Timer1.Enabled = True
stime = Timer
End If
End Sub

Private Sub Command2_Click() '暂停计时按钮
Timer1.Enabled = False
base = base + Timer - stime
End Sub

Private Sub Command3_Click() '复位时间按钮
Text1 = "已经过时间：0 小时 0 分 0 秒"
Timer1.Enabled = False
base = 0
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 100
base = 0
End Sub

Private Sub Timer1_Timer()
Dim sec
sec = Timer - stime + base
Text1 = "已经过时间：" & sec \ 3600 & " 小时 " & (sec Mod 3600) \ 60 & " 分 " & sec Mod 60 & " 秒"
End Sub

Answer 2

'form中3个按钮，一个timer，一个text1
Dim sec
Private Sub Command1_Click() '开始计时按钮
Timer1.Enabled = True
End Sub

Private Sub Command2_Click() '暂停计时按钮
Timer1.Enabled = False
End Sub

Private Sub Command3_Click() '复位时间按钮
Text1 = "已经过时间：0 小时 0 分 0 秒"
Timer1.Enabled = False: sec = 0
End Sub

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

Private Sub Timer1_Timer()
sec = sec + 1
Text1 = "已经过时间：" & sec \ 3600 & " 小时 " & (sec Mod 3600) \ 60 & " 分 " & sec Mod 60 & " 秒"
End Sub