投稿者 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