代码来显示文件的内容RichTextBox中

-7

代码来显示文件的内容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

来源

2016-09-20 B.dinesh

请尽快给出解决方案 –

您的问题是什么？ –

您还没有问过任何问题，所以我们无法给出解决方案。请阅读https://codeblog.jonskeet.uk/2010/08/29/writing-the-perfect-question/并在发布时关闭大写锁定。 –

的RTF组件上的帮助内容可以发现HERE从MSDN。

的LoadFile方法

另请参见实施例适用于负荷 .rtf文件或文本文件到RichTextBox控件 - 控制和它的可能性如下进行说明。语法 object.LoadFile路径名，文件类型 LoadFile方法语法包含以下部分：部件说明 object必需。一个对象表达式，其值为“应用于”列表中的对象。 pathname必需。一个字符串表达式，用于定义要加载到控件中的文件的路径和文件名。 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)

信托这将帮助。

来源

2016-09-22 17:21:09

代码来显示文件的内容RichTextBox中

回答

相关问题