请教VB高手定时器的问题

来源：百度知道 编辑：UC知道 时间：2024/06/19 13:38:35
Private Sub Timer1_Timer()
For i = 0 To 10000000
Text1.Text = i
Text1.Refresh
Next i
End Sub

Private Sub Timer2_Timer()
For i = 0 To 10000000
Text2.Text = i + 1
Text2.Refresh
Next i
End Sub
上面两个定时器，是执行完一个再执行一个，怎么能让两个同时执行。查了查有的说用ActiveX exe，我也不会用这个，请问怎么实现上述功能呢？

写到一个里面不就同时执行了？？？

那就把他们写到一起,
Private Sub Timer1_Timer()
For i = 0 To 10000000
Text1.Text = i
Text1.Refresh
Text2.Text = i+1
Text2.Refresh
Next i
End Sub

改为：
Private Sub Timer1_Timer()
For i = 0 To 10000000
DoEvents
Text1.Text = i
Text1.Refresh
Next i
End Sub

Private Sub Timer2_Timer()
For i = 0 To 10000000
DoEvents
Text2.Text = i + 1
Text2.Refresh
Next i
End Sub