>>6 
 
Me.RichTextBox1.AppendText(vbNewLine) 
Me.RichTextBox1.ScrollToCaret() 
 
上のように２行追加しましたら、出来ました。 
また、質問させて頂きます。

 
＞スクロールを一番下に設定したのですが、  
 
スクロールを一番下に設定したいのですが、

すみません。追加で質問なのですが、 
テキストファイルが結構長くなり 
編集や閲覧はするのは、後ろの行から 
になります。 
 
それで、リッチテキストボックスコントロールの 
ScrollBarsプロパティをVerticalにして 
しているのですが、読込むたびに、 
スクロールが最初の行に戻ってしまうのを、 
スクロールを一番下に設定したのですが、 
どうすればよいでしょうか？ 
 
宜しくお願い致します。

Blueさんレスありがとうございました。 
 
＞リッチテキストのフォントを等幅の 
＞「ＭＳ ゴシック」とかにするとどうなりますか？  
 
ばっちり、うまく表示できました。 
ありがとうございました。 
 
初歩的な質問ではございましたが、今後とも 
宜しくお願いします。 
 
解決です。

フォントがプロポーショナルフォントなのでは？ 
 
リッチテキストのフォントを等幅の「ＭＳ ゴシック」とかにするとどうなりますか？

【Test.txt を直接開いた状態】 
------------------------------------ 
10:58 2008/02/27/水  テスト 
半角スペース（２１）ずれる 
半角スペース（２１）のは何故ですか？ 
------------------------------------- 
 
 
【リッチテキストボックスで見た様子】 
------------------------------------ 
10:58 2008/02/27/水  テスト 
半角スペース（１５）ずれる 
半角スペース（１５）のは何故ですか？ 
------------------------------------

VB2005です。 
  
テキストファイルをまず、書き込みます。 
その後、リッチテキストボックスに、そのテキストファイルを読み込むと、 
書き込んだデータが２行以上ある場合に、ずれて表示されます。 
 
 
テキストファイルを直接開いてみると、特にずれた様子はないのですが、 
リッチテキストボックス上では、ずれて表示されます。 
 
 
【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