在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次。
有哪位知道,能告诉一下啊,在这谢谢了!

解决方案 »

  1.   

    是不是n太大了 timer设置的interval太小 不够程序运行n次 可以把interval设置大点试试
      

  2.   

    让时间1和2不要同步,就是不会同时触发,你试试
    比如时间1在5S的时候触发,时间2在10S的时候触发,然后时间1在15S的时候触发,2在20的时候触发
      

  3.   

    Option Explicit
    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