请问，Timer 控件组 timer_timer(index as integer)有关问题

2012-01-20

请教，Timer 控件组 timer_timer(index as integer)问题在Timer 控件组中，每个Timer_Timer（index as intege

请教，Timer 控件组 timer_timer(index as integer)问题
在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次。
有哪位知道，能告诉一下啊，在这谢谢了！

[解决办法]
是不是n太大了 timer设置的interval太小不够程序运行n次可以把interval设置大点试试
[解决办法]
让时间1和2不要同步，就是不会同时触发，你试试
比如时间1在5S的时候触发，时间2在10S的时候触发，然后时间1在15S的时候触发，2在20的时候触发

[解决办法]
Option Explicit
Dim intCount As Integer
Dim lngSum As Integer
Private Sub Command1_Click()
Me.Timer2.Interval = 1000
Me.Timer2.Enabled = True
End Sub

Private 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 Sub

Private 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 Sub

Private 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

[解决办法]
计时器还是经过消息循环的，肯定有时间差误的

热点排行

VB

请问，Timer 控件组 timer_timer(index as integer)有关问题