Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
リッチテキストボックスでずれずに表示するには
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=2227#CommentId18510
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
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