Vb6 在RICHTEXTBOX中显示文件内容的代码

在RICHTEXTBOX中显示文件内容的代码

Private Sub Command2_Click()
    Dim contentfile As String
    On Error GoTo a
    Form5.CommonDialog1.ShowOpen
    Open Form5.CommonDialog1.FileName For Input As #1
    Do Until EOF(1)
        Input #1, contentfile
        Form5.RichTextBox1 = Form5.RichTextBox1 + contentfile + vbCrLf
    Loop
    Close #1
    a:
End Sub

---

RTF组件的帮助内容可以从MSDN中找到。控制及其可能性解释如下-

加载文件方法

另请参见适用于的示例 将.rtf文件或文本文件加载到RichTextBox控件中。 语法 object.LoadFile路径名，文件类型 LoadFile方法语法包含以下部分： 零件说明 对象是必需的。计算结果为“应用于”列表中的对象的对象表达式。 需要路径名。定义要加载到控件中的文件的路径和文件名的字符串表达式。 文件类型可选。一个整数或常量，用于指定加载的文件类型，如“设置”中所述

背景 文件类型的设置包括： 定值描述 rtfRTF 0（默认）RTF。加载的文件必须是有效的.rtf文件。 rtfText 1文本。RichTextBox控件加载任何文本文件

评论 使用LoadFile方法加载文件时，加载文件的内容将替换RichTextBox控件的全部内容。这将导致文本和RTFText属性的值发生更改。 您还可以使用Visual Basic中的输入函数和RichTextBox控件的TextRTF和SelRTF属性来读取.rtf文件。例如，您可以将.rtf文件的内容加载到RichTextBox控件，如下所示：

---

相信这会有所帮助。

如果您没有提出问题，请给出解决方案，因此我们无法给出解决方案。发帖时请阅读并关闭caps lock。我将花费与你撰写好问题、好标题和设置代码格式相同的时间来解决你的问题。

Form5.RichTextBox1.LoadFile“filenamehere”

@puropoix你已经花了太多时间了。。。

Open "mytext.rtf" For Input As 1

RichTextBox1.TextRTF = Strconv(InputB$(LOF(1), 1), vbUnicode)