求一个暂停计时的方法

[taojinkuang]

我想实现这样的功能：单击菜单‘暂停’，让timer1_timer事件暂停，让程序暂停也可以
然后，还有个菜单‘继续执行’，单击，让timer1_timer事件接着暂停时的位置继续执行
给个方法吧，不胜感激！！！

[mustudent]

Timer不是有Enabled属性吗？True就是Timer工作 False就停止

[DengXingJie]

給你一個例子
Dim i As Integer

Private Sub Command1_Click()
If Command1.Caption = "暫停" Then
Command1.Caption = "繼續"
Timer1.Enabled = False
Else
Command1.Caption = "暫停"
Timer1.Enabled = True
End If
End Sub

Private Sub Timer1_Timer()
i = i + 1
Label1.Caption = i
End Sub