Private Sub Command4_Click()
CommonDialog1.Filter = "txt|*.txt"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Input #1, n
Text1.Text = n
Close #1
End Sub

为什么不能读取txt全部内容？只读到一部分？请高手指点！

Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, Lstr
Text1.Text = Text1.Text & Lstr & vbcrlf
Loop

谢谢。