VB 如何实现定时读取3个指定的记事本数据到指定列表框

Question

我是这样写的 报错，哪位大虾给我纠正下

Private Sub Timer2_Timer()

Dim i As Integer, m As String
Open "C:\Eagle\yunxinrizi.txt" For Input As #1
Open "C:\Eagle\qqrizi.txt" For Input As #2
Open "C:\Eagle\jiaqunrizi.txt" For Input As #3
Do While Not EOF(1)
Line Input #1, m
Line Input #2, m
Line Input #3, m
ListBox2.AddItem m
ListBox3.AddItem m
ListBox5.AddItem m
Loop
Close #1
Close #2
Close #3

End Sub

Answer 1

Private Sub Timer1_Timer()
Dim i As Integer, m As String
List2.Clear
List3.Clear
List5.Clear
Open "C:\Eagle\yunxinrizi.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, m
ListBox2.AddItem m
Loop
Close #1

Open "C:\Eagle\qqrizi.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, m
ListBox3.AddItem m
Loop
Close #1

Open "C:\Eagle\jiaqunrizi.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, m
ListBox5.AddItem m
Loop
Close #1

End Sub

Answer 2

Do While Not EOF(1) 这句 如果#1没到文件尾 二#2 已经读完了 这时在读#2 就会出错

这样先读完1 再读2 再读3
Do While Not EOF(1)
Line Input #1, m
ListBox2.AddItem m
Loop
Do While Not EOF(2)
Line Input #2, m
ListBox3.AddItem m
loop