如何把文本文件的内容输入textBox中？

Question

打开一文本文件并放入textBox中Dim FileNumber
Dim Lstr as String
FileNumber = FreeFile   ' 取得未使用的档案代码。
Open "TEST" For input As #FileNumber
Do While Not EOF(FileNumber)
   Line Input #FileNumber, Lstr
   Text1.Text = Text1.Text + Lstr + Chr(13)+Chr(10)
Loop
Close #FileNumber
这种方法是我从书上看到的，可是不成功。
还有一种方法：可 以 用 下 面 的 方 法 一 次 将 全 部 文 件 读 入 ： 
     Open "d:\test1.txt" For Binary As filenum1 
     TextLine = Space(LOF(filenum1)) 
     Get filenum1, , TextLine 对吗？？？？
然后在ＣＬＩＣＫ事件中加入
text1.text=textline请指教！

Answer 1

liangge fangfa dou dui ba

Answer 2

为什么非要放到Textbox中呢，VB中的richtextbox专门用于读文件的啊，其余功能跟
textbox一样的，外型外貌也一样啊，如果你非要放到 textbox中，
不如先用richtextbox 读出来，在用textbox.text=richtextbox.text就好了，
不过这样是不是很罗嗦了？

Answer 3

把文本文件内容读取TextBox：
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFileText1.Text=StrConv(LoadBytes,vbUniCode)

Answer 4

Open "TEST" For input As #FileNumber
中文件名是完整的路径如:C:\test.txt还有
Text1.Text = Text1.Text + Lstr + Chr(13)+Chr(10)
改为
Text1.Text = Text1.Text & Lstr & vbcrlf

Answer 5

我一般都用opentextfile，而且textbox好像有字数限制吧，255，richtextbox的限制比较宽，好像有2G

Answer 6

Dim sLine as String 
Open Filename for Input as #1 
    Do While Eof(1)
        Line Input #1,sLine
        Text1.Text=Text1.Text+sLine+vbCrlf
    Loop
Close #1