求助,求助,求助!!!!!!!!!!!!!给分

[leskey]

我现在用两个timer控件,当从timer1事件中转入timer2时,我希望彻底跳出原来的那个timer1事件.
我现在用的是设置timer1的enable属性,但是在执行完timer2事件后还是会回到原来的timer1控件中,将剩下的timer1指令执行完

[snowrose]

exit sub不行吗？

[xxlroad]

老兄请给出代码。
Option Explicit

Private Sub Form_Load()
Timer1.Enabled = False
Timer2.Enabled = False
Timer1.Interval = 100
Timer2.Interval = 100
End Sub

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



Private Sub Timer1_Timer()
Dim i As Integer
For i = 0 To 10 ^ 4
Cls
Print "Timer1"
If i > 100 Then
Timer1.Enabled = False
Timer2.Enabled = True
Print i
Exit Sub
End If
Next
End Sub
Private Sub Timer2_Timer()
Dim i As Integer
For i = 0 To 10 ^ 4
Cls
Print "Timer2"
If i > 100 Then
Timer2.Enabled = False
Print i
Exit Sub
End If
Next
End Sub