vb6列表框列表计时器

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

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

然后我想让运行'A'，然后运行计时器1

完成“B”之后，运行timer1，依此类推

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

这让我有些困惑

对不起，我的英语不好，任何人都可以启发我，我真的很感激

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

Timer1\u Timer（）

事件触发计时器的每个间隔，因此您的代码需要进入其中

类似于以下内容（未经测试的代码）：

---

Timer1

的

Interval

属性控制调用

Timer1\u Timer（）

的频率。

您没有正确考虑计时器。VB6通常以同步方式运行代码，因此，如果您在正常情况下只运行“A”，则在“A”完成之前，控件不会从“A”返回，此时您可以启动“B”。如果你只想运行'A'，然后是'B'，然后是'C'，你需要做的就是一个接一个地运行它们。

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