代碼來顯示文件的內容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中

回答

相關問題