Question

读取listbox里面的内容

list里面有 10 项内容~~

如何每隔3秒 顺序读取 list的一项 到text1

Answer 1

例子一个：

Private Sub Form_Load()
timer1.interval=3000
For i = 1 To 9
List1.AddItem i
Next
End Sub

Private Sub Timer1_Timer()
Static i As Integer
Print List1.List(i)
i = i + 1
If i > List1.ListCount - 1 Then Timer1.Enabled = False

End Sub