vb中如何在达到某个条件时激活某个过程过程如x等于50的时候,则激活timer1timer过程,急,

Question

vb 中如何在达到某个条件时激活某个过程过程
如x等于50的时候,则激活timer1_timer过程,急,

Answer 1

Dim x As Integer
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
Timer2.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Me.Caption = "我已被激活了"
Timer2.Enabled = False
End Sub
Private Sub Timer2_Timer()
x = x + 1
If x = 50 Then Timer1.Enabled = True
End Sub