Question

vb text1读取list1内容

一个list1控件，一个text1控件，一个timer1控件，
如何在每三秒以后让text1读取list1中的下一行内容？

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 10
List1.AddItem "这是第" & CStr(i) & "行数据"
Next
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()

这里怎么写啊

End Sub

实现效果就是 text1读取list1中的第一行数据，三秒后读取第二行数据，直到最后一行。。。。

Answer 1

Dim i%

Private Sub Form_Load()
For i = 1 To 10
List1.AddItem "这是第" & CStr(i) & "行数据"
Next
Text1 = ""
i = 0
Timer1.Interval = 3000
End Sub

Private Sub Timer1_Timer()
If i <= List1.ListCount - 1 Then
Text1 = Text1 & List1.List(i) & vbCrLf
i = i + 1
Else
Timer1.Enabled = False
End If
End Sub