リッチテキストボックスでずれずに表示するには

タグの編集
投稿者 takashi  () 投稿日時 2008/2/27 20:14:00
VB2005です。 
  
テキストファイルをまず、書き込みます。 
その後、リッチテキストボックスに、そのテキストファイルを読み込むと、 
書き込んだデータが2行以上ある場合に、ずれて表示されます。 
 
 
テキストファイルを直接開いてみると、特にずれた様子はないのですが、 
リッチテキストボックス上では、ずれて表示されます。 
 
 
【Test.txt を直接開いた状態】 
------------------------------------ 
10:58 2008/02/27/水  テスト 
                     ずれる 
                     のは何故ですか? 
------------------------------------- 
 
 
【リッチテキストボックスで見た様子】 
------------------------------------ 
10:58 2008/02/27/水  テスト 
               ずれる 
               のは何故ですか? 
------------------------------------ 
 
 
リッチテキストボックスでずれずに表示されるには 
どうしたらよいでしょうか? 
 
宜しくお願い致します。 
下にコードを転記致します。 
 
 
 
   Private Const TEST_F As String = "C:\Test\Test.txt" 
 
    Private Sub 登録_Button_Click(ByVal sender As System.Object, _ 
                         ByVal e As System.EventArgs) Handles 登録_Button.Click 
        Dim i As Long 
 
        Dim Writer2 As New IO.StreamWriter(TEST_F, True, _ 
                                 System.Text.Encoding.GetEncoding("Shift-JIS")) 
        With Writer2 
            .WriteLine("") 
            .WriteLine(Now.ToString("HH:mm yyyy/MM/dd/ddd") & _ 
                                            Space(2) & Me.TextBox1.Lines(0)) 
 
            For i = 1 To Me.TextBox1.Lines.GetUpperBound(0) 
                .WriteLine(Space(21) & Me.TextBox1.Lines(i)) 
            Next i 
 
            .Close() 
        End With 
 
    End Sub 
     
  Private Sub ファイル読込_Button_Click(ByVal sender As System.Object, _ 
                  ByVal e As System.EventArgs) Handles ファイル読込_Button.Click 
        Me.RichTextBox1.LoadFile(TEST_F, RichTextBoxStreamType.PlainText) 
    End Sub
投稿者 takashi  () 投稿日時 2008/2/27 20:23:00
【Test.txt を直接開いた状態】 
------------------------------------ 
10:58 2008/02/27/水  テスト 
半角スペース(21)ずれる 
半角スペース(21)のは何故ですか? 
------------------------------------- 
 
 
【リッチテキストボックスで見た様子】 
------------------------------------ 
10:58 2008/02/27/水  テスト 
半角スペース(15)ずれる 
半角スペース(15)のは何故ですか? 
------------------------------------
投稿者 Blue  () 投稿日時 2008/2/27 22:10:00
フォントがプロポーショナルフォントなのでは? 
 
リッチテキストのフォントを等幅の「MS ゴシック」とかにするとどうなりますか?
投稿者 takashi  () 投稿日時 2008/2/28 00:39:00
Blueさんレスありがとうございました。 
 
>リッチテキストのフォントを等幅の 
>「MS ゴシック」とかにするとどうなりますか?  
 
ばっちり、うまく表示できました。 
ありがとうございました。 
 
初歩的な質問ではございましたが、今後とも 
宜しくお願いします。 
 
解決です。
投稿者 takashi  () 投稿日時 2008/2/28 02:06:00
すみません。追加で質問なのですが、 
テキストファイルが結構長くなり 
編集や閲覧はするのは、後ろの行から 
になります。 
 
それで、リッチテキストボックスコントロールの 
ScrollBarsプロパティをVerticalにして 
しているのですが、読込むたびに、 
スクロールが最初の行に戻ってしまうのを、 
スクロールを一番下に設定したのですが、 
どうすればよいでしょうか? 
 
宜しくお願い致します。
投稿者 takashi  () 投稿日時 2008/2/28 02:07:00
 
>スクロールを一番下に設定したのですが、  
 
スクロールを一番下に設定したいのですが、
投稿者 takashi  () 投稿日時 2008/2/28 23:39:00
>>6 
 
Me.RichTextBox1.AppendText(vbNewLine) 
Me.RichTextBox1.ScrollToCaret() 
 
上のように2行追加しましたら、出来ました。 
また、質問させて頂きます。