VB.NET中，现有一多行TXT文件，想按行读取全部内容，然后显示在一文体框中，代码如下

Question

Dim a As String
a = ""
FileOpen(1, Application.StartupPath() & "\file\t1.txt", OpenMode.Input)
Do While Not EOF(1)
Input(1, a)
Loop
TextBox1.Text = a
TextBox2.Text = b
FileClose(1)
但运行结果只显示了最后一行，请问代码如何改写。另外，如不按行读取，一次性读取，代码又如何编写。谢谢
哦，上面代码应无TextBox2.Text = b。不能得到正确结果，代码错在哪里

Answer 1

a = ""
TextBox1.Text =""
    
FileOpen(1, Application.StartupPath() & "\file\t1.txt", OpenMode.Input)      
Do While Not EOF(1)
   Input(1, a)
   TextBox1.Text =TextBox1.Text  & a & vbcrlf
Loop      
        
一次性读取
a=File.ReadAllText(Application.StartupPath() & "\file\t1.txt")

追问

运行时，指出File有误，看看是怎么回事

运行时，指出File有误，看看是怎么回事

追答

Imports System.IO

添加这个的引

Answer 2

全部一次性读取

Imports System.IO

Dim a As String = File.ReadAllText(Application.StartupPath() & "\file\t1.txt")追问

Imports System.IO
何意

追答

你需要添加这个的引入

本回答被网友采纳

Answer 3

Do While Not EOF(1)
Input(1, a)
TextBox1.Text += a
Loop