リッチテキスト(RichText)を表示させるには

ActiveXコントロールを使用して、フォーム上にリッチテキスト(Rich Text)を表示する方法を紹介します。この機能を使用すると、テキストボックスの文字の色やサイズを自由に変えることができます。

注）ここで紹介するＡｃｔｉｖｅＸコントロールを使用するには、Visual Basic 6.0をインストールする必要があります。


 Word 2000でリッチテキストを作成するには

  1. Word 2000を起動します。

  2. 図１に示すような文書を作成してリッチテキスト形式(RTF)で Sample.rtf の名称を付けて保存します。
    図１-Word 2000で作成したリッチテキスト用データ


  3. Word 2000を終了します。



Access 2000のフォームにリッチテキストを表示するには

  1. Access 2000を起動して新規データベース(MyDB.mdb)を作成します。

  2. データベースウインドウのフォームタブをクリックしたら新規作成のボタンをクリックして、デザインビューを表示させます。

  3. メニューからツールボックスを表示させてコントロールの選択アイコンをクリックします。ActiveXコントロールの一覧から、Microsoft Rich Textbox Control, version 6.0をクリックしてフォームに貼り付けます。
    図２-ActiveXコントロールの一覧リスト

    　

    図３-フォームにＲｉｃｈ Ｔｅｘｔｂｏｘコントロールを貼り付けた例


  4. フォームのプロパティを表示させて、読み込み時のイベントにリスト１のコードをコピー＆ペーストします。このイベント処理では、Word 2000で作成したリッチテキストファイル　（Sample.rtf)　を読み込みます。

    注）Sample.rtf は、MyDB.mdbと同じフォルダに保存しておきます。別のフォルダに保存したときは、MyDB.mdbが存在するフォルダに移動してください。
    リスト１-フォームの読み込み時のイベント処理 
    Private Sub Form_Load()

  Me.ctlRichtext.LoadFile CurrentProject.Path & "\Sample.rtf"

End Sub　


  5. フォームビューに切り替えたら、リッチテキストが表示されるか確認します。
    図４-リッチテキストを表示させた例


  6. フォームを frmRichText の名称で保存します。