请教VB中一个定时器的问题

来源:百度知道 编辑:UC知道 时间:2024/06/24 06:39:48
我设了两个定时器,即timer1和timer2。1的interval为1秒,2的interval为2秒。当执行2的时候,运行2里的程序共用了1.8秒的时间,那么再这1.8秒里,我想timer1是不能运行的。请问能让两个定时器同时运行吗?

同意坐沙发的 100°的观点,两个定时器内的代码是不会同时执行的。老觉得可以同时运行,其实是我们的一种错觉。因为我们定时器里的过程往往用不了一个Interval设置的那么长时间,很快就可以执行完毕,会立即执行另一个已经在等待的定时器过程。如果定时器的过程运行时间超过它的Interval呢?小女子是个初学者,为了验证这件事,写了一段很简单的代码用以验证,结果发现,Timer1的代码没有执行完,Timer2的代码根本不会执行呢:

(两个Timer,Interval都是2000)
Private Sub Timer1_Timer()
For i = 1 To 600
For j = 1 To 600
For k = 1 To 600
Next k, j, i
Print "a"
End Sub

Private Sub Timer2_Timer()
Print Now
End Sub

我测试过,在一个窗口二个定时器是可以同时工作的,例如下面的代码:
Dim k, s
--------------------------------
Private Sub Form_Load()
Label1.Caption = ""
Label2.Caption = ""
Timer1.Enabled = True
Timer1.Interval = 500
Timer2.Enabled = True
Timer2.Interval = 100
End Sub
---------------------------------
Private Sub Timer1_Timer()
k = k + 1
Label1.Caption = k
End Sub
------------------------------
Private Sub Timer2_Timer()
s = s + 1
Labe