Question

VB中隔10分钟就做一件事情

Timer不能做到这点，因为Timer的最大时间是1分钟，但是我要十分钟才做一件事，应该怎么做？

希望有代码.(没分,不好意思.)
2楼说的听太不懂。。郁闷。

Answer 1

timer
间隔是1分钟
每十分提示 "十分钟了"
代码如下

Public a

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Interval = 60000
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
a = a + 1
If a = 10 Then
MsgBox "10分钟了"
a = 0
End If
End Sub

Answer 2

在窗体添加Timer控件：
编辑如下代码：
Private Sub ABC()
'..................
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000 'Timer1的计时时间是1秒
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim a As Integer
a = a + 1
If a = 600 Then 'a=600就是10分钟
Call ABC '启动ABC事件
a = 0
End If
End Sub

Answer 3

我想到一个方法，用一个Timer就可以了。思路是：执行Timer，给模块级变量加1，以后每次执行Timer的时候检测变量的值，如果值为十的话做那件事，如果不是十的话继续执行timer同时给模块级变量加1（说得有点乱），例子如下：
Option Explicit
Dim x As Integer

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

Private Sub Timer1_Timer()
If x = 10 Then
Print "x=5"
x = 0
Else
x = x + 1
Timer1.Enabled = False
Call Command1_Click
End If
End Sub

以上的代码可以实现单击按钮10秒后打印“x＝5”，同理，10分钟都可以通过这种方法实现，因为这种方法不是调用一次Timer事件，而是多次Timer事件。

Answer 4

当TIMER执行满一次，一分钟后，计数，计到10的时候触发另外的一个TIMER