VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2003/07/08(Tue) 15:16
投稿者： NAOSARA
ＵＲＬ：
タイトル： RichTextBoxでうまく表示できない

いつもお世話になります。

WinNT4.0-VB5.0という環境で開発しております。
テキストファイルから一行ずつ読み込みRTFのタグを付加して、
リッチテキストボックスコントロールに表示するというプログラムを作っています。
ファイルによって表示できなかったりヘッダ部分がそのまま表示されてしまう現象があったため、
調べてみたところ、以下の全角片仮名が含まれているとうまく表示できないことが
判明しました。
「ソ」「マ」「ボ」
上記の文字列が含まれなければ、他の全角片仮名や半角片仮名、平仮名・漢字等いずれも問題なく表示されます。
WinNT4.0-VB6.0環境でも試しましたが、同様の現象でした。。

表示部分のコーディングは以下のようにしています。

------------------------------------------------------------------------------
Dim strSource As String
Dim strRTHeader As String

    strSource = "\cf2 マ\par "
        ↑
        '＊"色指定のタグ＋文字列＋改行タグ" 実際は数百行分のデータが入っています。
            
    'ヘッダーを設定
    strRTHeader = strRTHeader & "{\rtf1\ansi\ansicpg932\deff0"
    strRTHeader = strRTHeader & "{\colortbl ;"
    strRTHeader = strRTHeader & "\red255\green0\blue0;"
    strRTHeader = strRTHeader & "\red0\green0\blue255;"
    strRTHeader = strRTHeader & "\red255\green255\blue0;"
    strRTHeader = strRTHeader & "\red0\green127\blue0;}"
    strRTHeader = strRTHeader & "\viewkind4\uc1\pard\lang1041 "
    strRTHeader = strRTHeader & "\f0\fs19 "
    
    '表示
    RichTextBox1.TextRTF = strRTHeader & strSource & "}"
    
--------------------------------------------------------------------------------

同様の経験をされた方、もしくは回避方法等ご存知でしたらアドバイスお願いいたします。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -