关于LISTBOX 按时间输出问题

xiaoshi112 发布于 2023-07-28 11:48， 1060 次点击

我想按把LISTBOX内容间隔10秒时间逐个读到文本框内，谢谢。

Dim i As Integer
Private Sub Form_Load()
    List1.AddItem "1603000100496EC"
    List1.AddItem "170300010052973D"
    List1.AddItem "18030001008297C2"
    Me.Timer1.Interval = 10000  '10秒
End Sub

Private Sub Timer1_Timer()
For i = 0 To List1.ListCount - 1
    Text1.Text = List1.List( i)
Next
Debug.Print Text1.Text
End Sub

[此贴子已经被作者于2023-7-28 11:50编辑过]

5 回复

独木星空2023-07-30 23:28

大家动动手，展示一下吧，已经发出几天了，该活动活动了，把气氛烘托起来，别保持沉默。

apull2023-07-30 23:43

Dim i As Integer
Private Sub Form_Load()
    List1.AddItem "1603000100496EC"
    List1.AddItem "170300010052973D"
    List1.AddItem "18030001008297C2"
    Me.Timer1.Interval = 10000  '10秒
    i=0
End Sub

Private Sub Timer1_Timer()
'For i = 0 To List1.ListCount - 1
    Text1.Text = List1.List(i)
    i=i+1
    if i = List1.ListCount then i=0
'Next
    Debug.Print Text1.Text
End Sub

xiaoshi1122023-08-02 23:12

回复 3楼 apull

谢谢，太感谢您啦，总是有点绕不过去这道坎。

独木星空2023-08-04 22:20

回复 3楼 apull

给了他圆满的答案！

蓝梦云2023-08-08 08:53

3楼写的不错！