在Timer 控件组中,每个Timer_Timer(index as integer) 事件中要执行的程序都是一样的,
sub timer_timer(index as integer) '这里是要执行的程序,要求运行n次 end sub为什么运行结果好像不会同时运行,而是timer_timer(1)运行几次,timer_timer(2)再运行几次,再又timer_timer(1)运行几次,.....好像运行的次数小于n次,为什么不会同时运行呢,像是加起来的次数才是n次。
有哪位知道,能告诉一下啊,在这谢谢了!
sub timer_timer(index as integer) '这里是要执行的程序,要求运行n次 end sub为什么运行结果好像不会同时运行,而是timer_timer(1)运行几次,timer_timer(2)再运行几次,再又timer_timer(1)运行几次,.....好像运行的次数小于n次,为什么不会同时运行呢,像是加起来的次数才是n次。
有哪位知道,能告诉一下啊,在这谢谢了!
比如时间1在5S的时候触发,时间2在10S的时候触发,然后时间1在15S的时候触发,2在20的时候触发
Dim intCount As Integer
Dim lngSum As Integer
Private Sub Command1_Click()
Me.Timer2.Interval = 1000
Me.Timer2.Enabled = True
End SubPrivate Sub Form_Load()
Me.Timer2.Enabled = False
Me.Timer1(0).Enabled = False
Me.Timer1(1).Enabled = False
Me.Timer1(0).Interval = 2000
Me.Timer1(1).Interval = 2000
End SubPrivate Sub Timer1_Timer(Index As Integer)
Text2.Text = Text2.Text + 1
Select Case Index
Case 0
lngSum = lngSum + 2
Text1.Text = lngSum
Case 1
lngSum = lngSum - 1
Text1.Text = lngSum
End Select
End SubPrivate Sub Timer2_Timer()
If intCount = 0 Then
Me.Timer1(0).Enabled = True
intCount = intCount + 1
Else
intCount = 0
Me.Timer1(1).Enabled = True
Me.Timer2.Enabled = False
End If
End Sub