如何在文本框中显示一个TXT文件
怎么样才能把一个已经有的文本文件显示在文本框中 --------------------编程问答-------------------- RichTextBox1.FileName = --------------------编程问答-------------------- 企鹅真早。。。 --------------------编程问答-------------------- --------------------编程问答-------------------- TreeView, Ultimate Controls --------------------编程问答-------------------- Oh,error,it is ListView32 --------------------编程问答--------------------Option Explicit设置text1的multiline属性。 --------------------编程问答-------------------- 设置text1的multiline属性。
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
Set fs = CreateObject("SCripting.FileSystemObject")
Set f = fs.OpenTextFile("text.txt")
Text1 = f.ReadAll
--------------------编程问答-------------------- 用传统的open方法或文件系统对象来读取TXT文件,然后写到Text控件的Text属性中。 --------------------编程问答-------------------- 看来我理解能力确实有问题,文本?文本文件? --------------------编程问答--------------------
富文本框一次载文件,隆重推荐这个方法!
除此以外还可以按二进制打开直接载文本:
'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 , 基础类