Question

VB多个Timer时间间隔不一样如何同步循环

Answer 1

尽量不要在VB中使用多个Timer，这样会占用很多内存资源，而且随着时间增加内存的消耗也会增加。可以在一个Timer中利用一个计数器来分别执行不同的任务，比如：

Private Sub Form_Load()
Timer1.Interval = 1000  '1秒循环一次
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static t As Long  't是秒数计数器
t = t + 1
If t Mod 17 = 0 Then
    '每隔17秒执行任务1
ElseIf t Mod 23 = 0 Then
    '每隔23秒执行任务2
ElseIf t Mod 8 = 0 Then
    '每隔8秒执行任务3
    '依此类推
End If
End Sub