Question

vb6编程 关于定时执行某项任务

比如说当窗体加载时，开始计时十分钟后，执行一项任务：
mciexecute"play d:\1.mp3"（用api函数播放d盘1.MP3 ）

用那个timer控件，最多也只能一分多一点，请各位帮帮忙，看能不能用某个函数？？请写出代码，并作注解！！详细一点。。

Answer 1

不错啊，那个 Timer 控件，最多也只能一分多一点。但其实设置成 1 秒钟即Interval = 1000 就可以了，你可以用一个静态变量来计算 10 分钟嘛。代码如下：

Private Sub Timer1_Timer()
Static T As Integer
T = T + 1
If T = 600 Then
mciexecute"play d:\1.mp3"
T = 0
End If
End Sub

当然，你把Timer1的时间设成 1分钟也可以，即Interval = 60000代码为：

Private Sub Timer1_Timer()
Static T As Integer
T = T + 1
If T = 60 Then
mciexecute"play d:\1.mp3"
T = 0
End If
End Sub