VB中Text控件如何读取txt文本中内容？

Question

比如说我 Form1 窗体上创建一个 Text1 文本框，保存VB文件，在同文件夹下新建一个 1.txt 文档。请问如何让vb中的Text1文本框读取1.txt文档中的内容？

Answer 1

Private Sub Command1_Click()
Open App.Path & "\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, k
Text1 = Text1 & k & Chr(13) & Chr(10)
Loop
Close #1
End Sub

Answer 2

Open App.Path &"\1.txt" For Binary As #1
Text1.Text = Input(LOF(1), 1)
Close 1

Answer 3

很简单的，这样就可以读取了。

Open App.Path & "\1.txt" For Binary As #1
Text1.Text = Input(LOF(1), 1)
Close #1