Question

在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

Answer 1

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

LoadFile方法

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

设置   filetype的设置是：   常数值描述   rtfRTF 0（默认）RTF。加载的文件必须是有效的.rtf文件。   rtfText 1文字。 RichTextBox控件加载任何文本文件。

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

Open "mytext.rtf" For Input As 1

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

相信这会有所帮助。

代码在RICHTEXTBOX中显示文件内容

1 个答案: