VB时钟编码错了,向高手请教

来源:百度知道 编辑:UC知道 时间:2024/06/01 03:38:00
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "开始"
Command2.Caption = "暂停"
Command3.Caption = "结束"
End Sub

Private Sub Timer1_Timer()
t = Time - Form.Tag
t0 = Format((t * 100) Mod 100, "00")
t = Int(t)
t_sec = Format(t Mod 60, "00.")
t_min = Format((t \ 60) Mod 60, "00:")
t_hor = Format((t \ 3600) Mod 60, "00:")
End Sub
我用的command2作用是让时钟它暂停,停止工作啊,所以设Timer1.Interval = 0啊,没错吧。还有,我调试后系统提示就在t = Time - Form.Tag 这一行出错了啊。

Private Sub Command1_Click()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = 0
End Sub

你说得对,Timer1.Interval = 0没错
Time - Form.Tag是什么意思?
求时间差的话,似乎应该用这个函数:DateDiff

Timer1.Interval = 1000

你应该把,有些代码放进LOAD下面,让它载入,后在运行,就行了!