リッチテキストボックス（RichTextBox）コントロールに指定したファイルの内容を表示する方法について説明します。
指定したファイルの内容を表示するには、リッチテキストボックスのLoadFile()メソッドを利用します。

以下、サンプル。
《事前準備》
1.Windowsアプリケーション プロジェクトを作成します。
2.Form1に以下のコントロールを配置します。
　・リッチテキストボックス
　・OpenFileDialog
　・ボタン
　※コントロール名は、全てデフォルトのままとします。

《コード》
Public Class Form1

  'ダイアログで表示するファイルの種類

  Private Const TYPE_PLAINE_TEXT = _

    "テキストファイル(*.txt)|*.txt"

  Private Const TYPE_RTF = _

    "RTF(リッチテキストファイル)(*.rtf)|*.rtf"

  Private Const TYPE_UNICODE_TEXT = _

    "UNICODEテキストファイル(*.txt)|*.txt"



  Private Sub Button1_Click( _

    ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles Button1.Click



    OpenFileDialog1.InitialDirectory = _

      System.Environment.SpecialFolder.Desktop

    OpenFileDialog1.FileName = ""

    OpenFileDialog1.AddExtension = True

    OpenFileDialog1.Filter = TYPE_PLAINE_TEXT & "|" & _

                             TYPE_RTF & "|" & _

                             TYPE_UNICODE_TEXT

    'ファイルが選択されていない場合は終了

    If OpenFileDialog1.ShowDialog() <> _

         Windows.Forms.DialogResult.OK Then

      Exit Sub

    End If



    Dim fileType As System.Windows.Forms.RichTextBoxStreamType

    Select Case OpenFileDialog1.FilterIndex

      Case 1

        fileType = RichTextBoxStreamType.PlainText

      Case 2

        fileType = RichTextBoxStreamType.RichText

      Case 3

        fileType = RichTextBoxStreamType.UnicodePlainText

    End Select



    RichTextBox1.LoadFile(OpenFileDialog1.FileName, fileType)

  End Sub

End Class

【補足事項】
・LoadFile()メソッドには、3種類のオーバーロードがあります。
・LoadFile()メソッドでファイル名のみを指定する場合は、以下のいずれかの形式である必要があります。
　1.リッチテキストファイル(RTF形式)
　2.ASCIIテキストファイル
　※Shift-JIS（シフトJIS）等の文字セットで保存したテキストファイルを読み込むと例外が発生します。
・読み込み時に指定できるファイル形式は、RichTextBoxStreamType列挙体に定義されています。

「VB.NET」カテゴリの最新記事

カテゴリ：
VB.NET
タグ ：
VB.NET
リッチテキストボックス
RichTextBox
ファイル
表示