如何在文本框中显示一个TXT文件

怎么样才能把一个已经有的文本文件显示在文本框中 --------------------编程问答-------------------- RichTextBox1.FileName = --------------------编程问答-------------------- 企鹅真早。。。 --------------------编程问答-------------------- --------------------编程问答-------------------- TreeView, Ultimate Controls --------------------编程问答-------------------- Oh,error,it is ListView32 --------------------编程问答--------------------

Option Explicit



Private Sub Form_Load()

'Text1.MultiLine = True

Text1.Text = ""

Dim s As String

Open "c:\1.txt" For Input As #1   ' 打开输入文件。

Do While Not EOF(1)   ' 循环至文件尾。

   Input #1, s   ' 将数据读入变量。

   Text1.Text = Text1.Text & s & vbCrLf ' 在text1中显示数据。

Loop

Close #1   ' 关闭文件

End Sub

设置text1的multiline属性。 --------------------编程问答-------------------- 设置text1的multiline属性。

Set fs = CreateObject("SCripting.FileSystemObject")
Set f = fs.OpenTextFile("text.txt")
Text1 = f.ReadAll
--------------------编程问答-------------------- 用传统的open方法或文件系统对象来读取TXT文件，然后写到Text控件的Text属性中。 --------------------编程问答-------------------- 看来我理解能力确实有问题，文本？文本文件？ --------------------编程问答--------------------

引用 1 楼 patrickkong 的回复:

RichTextBox1.FileName =

富文本框一次载文件，隆重推荐这个方法！
除此以外还可以按二进制打开直接载文本：

'Form1窗体上添加一文本框控件Text1

'设置Text1.MultiLine = True（此属性不能在运行时设置，只能在开发时设置）

Option Explicit



Private Sub Form_Load()

    Dim FileNumber As Long, FileByte() As Byte

    FileNumber = FreeFile

    Text1.Text = ""

    Open "c:\1.txt" For Binary As #FileNumber '打开二进制文件

    ReDim FileByte(LOF(FileNumber) - 1)

    Get #FileNumber, , FileByte

    Text1.Text = StrConv(FileByte, vbUnicode)

    Close #FileNumber

End Sub

补充：VB ,  基础类