Question

我想用Timer1迭代列表框列表项。

例如，如果列表框列表项具有“A”，“B”，“C”

然后我想运行'A'然后运行timer1

并在完成'B'之后再运行timer1，依此类推

也许这对某些人来说很容易，但对我来说并不容易，因为Timer1正在继续循环

这让我感到困惑。

抱歉，我的英语不好，任何人都可以为我感到高兴，我真的很喜欢！

Private Sub Command1_Click()   
    For xx = 0 To List3.listcount - 1
      Timer1.Enabled = True
    Next xx
End Sub

Public Sub Timer1_Timer()
some code....
.
.
End Sub

Answer 1

Timer1_Timer()事件会触发计时器的每个时间间隔 - 因此您的代码需要进入。

像这样（未经测试的代码）：

Private Sub Command1_Click()   
    Timer1.Enabled = True ' Start the timer
End Sub

Public Sub Timer1_Timer()
    Static currentIndex = 0
    ' Do what you want with List1.List(currentIndex)
    currentIndex = currentIndex + 1
    If (currentIndex = List1.ListCount) Then
         Timer1.Enabled = False ' Stop the timer
    End if
End Sub

Interval的{{1}}属性控制Timer1的调用频率。

vb6列表框列表计时器

1 个答案: