vb6.0 listbox读取文本文档txt只显示一行

Question

vb6.0 listbox读取文本文档txt，让其逐行显示相应的内容，但运行结果txt所有内容在listbox中为何只显示一行
Dim temp As String
Open "WB.txt" For Input As #3
Do While Not EOF(3)
Line Input #3, temp
List1.AddItem temp
Loop
Close #3

Answer 1

Do While Not EOF(FileNo) ' 循环至文件尾。
Line Input #FileNo, tmp ' 读入一行数据并将其赋予某变量。
List1.AddItem tmp ' 在立即窗口中显示数据。
Loop Close