玄関へお回り下さい。
リッチテキストボックスコントロールの基本的な操作方法色々 (14個)      (SNo.115)

１．テキストファイルを読み込み表示
２．リッチテキストファイルを読み込み表示
３．WordWrapを解除し、水平スクロールバーを表示する
４．リッチテキストボックスのテキストをテキスト形式で保存
５．リッチテキストボックスのテキストをリッチテキスト形式で保存
６．フォーカスを失っても選択範囲は強調表示に設定
７．選択範囲のテキストのカラーを設定(ダイアログボックスを使用と２方法)
８．選択文字を太字に設定(ダイアログボックスを未使用)
９．選択文字のフォントスタイルを変更(ダイアログボックスを使用)
10.指定の文字列を検索する(再度クリックすれば見つかった位置から再度検索する）
11.選択行を左揃えで表示する
12.選択行を中央揃えで表示する
13.選択行を右揃えで表示する
14.テキストの総行数を取得する
使用コントロール Button1 〜 Button14　  RichTextBox1　
その他条件 WindowsXP(Vista)　Visual Basic 2005(VB2008)
test.txt 及び test.rtf ファイルをご用意下さい　
１．テキストファイルを読み込み表示
　
Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'テキストファイルを読み込み表示
    RichTextBox1.LoadFile("..\..\test.txt", RichTextBoxStreamType.PlainText)
End Sub
　
２．リッチテキストファイルを読み込み表示
　
Private Sub Button2_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button2.Click
'リッチテキストファイルを読み込み表示
    RichTextBox1.LoadFile("..\..\test.rtf", RichTextBoxStreamType.RichText)
End Sub
　
３．WordWrapを解除し、水平スクロールバーを表示する
　
Private Sub Button3_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button3.Click
'WordWrapを解除し、水平スクロールバーを表示する
    RichTextBox1.WordWrap = False
    '常に水平スクロール バーと垂直スクロール バーの両方を表示します。
    RichTextBox1.ScrollBars = RichTextBoxScrollBars.ForcedBoth
End Sub
　
４．リッチテキストボックスのテキストをテキスト形式で保存
　
Private Sub Button4_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button4.Click
'リッチテキストボックスのテキストをテキスト形式で保存
    RichTextBox1.SaveFile("..\..\削除可.txt", RichTextBoxStreamType.PlainText)
End Sub
　
５．リッチテキストボックスのテキストをリッチテキスト形式で保存
　
Private Sub Button5_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button5.Click
'リッチテキストボックスのテキストをリッチテキスト形式で保存
    RichTextBox1.SaveFile("..\..\削除可.rtf", RichTextBoxStreamType.RichText)
End Sub
　
６．フォーカスを失っても選択範囲は強調表示に設定
　
Private Sub Button6_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button6.Click
'フォーカスを失っても選択範囲は強調表示に設定。
   RichTextBox1.HideSelection = False
End Sub
７．選択範囲のテキストのカラーを設定(ダイアログボックスを使用と２方法)
　
Private Sub Button7_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button7.Click
'選択範囲のテキストのカラーを設定
   'RichTextBox1.SelectionColor = Color.Red

   Dim ColorDialog1 As New ColorDialog
   With ColorDialog1
      .AllowFullOpen = True
      '現在設定の色を選択（特に設定しなくてもよい）
      .Color = RichTextBox1.SelectionColor
      'ダイアログボックスを表示しOKボタンが押されたら
      If .ShowDialog = Windows.Forms.DialogResult.OK Then
         RichTextBox1.SelectionColor = .Color
      End If
   End With
End Sub
８．選択文字を太字に設定(ダイアログボックスを未使用)
　
Private Sub Button8_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button8.Click
'選択文字を太字に設定
   RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Bold)
End Sub
９．選択文字のフォントスタイルを変更(ダイアログボックスを使用)
　
Private Sub Button9_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button9.Click
'選択文字のフォントスタイルを変更

   'RichTextBox1.SelectionFont = New Font("ＭＳ Ｐ明朝", 12, RichTextBox1.SelectionFont.Style)
   'フォントダイアログを使った場合
   Dim FontDialog1 As New FontDialog
   With FontDialog1
      .ShowColor = True   'ダイアログボックスに色の選択肢を表示
      .MinSize = 8        'ユーザーが選択できる最小値を設定
      .MaxSize = 24       'ユーザーが選択できる最大値を設定
      .Font = RichTextBox1.SelectionFont      '現在の設定のフォントを表示
      .Color = RichTextBox1.SelectionColor    '現在の設定のフォントカラーを表示
      'ダイアログボックスを表示しOKボタンが押されたら
      If .ShowDialog = Windows.Forms.DialogResult.OK Then
         RichTextBox1.SelectionFont = .Font
         RichTextBox1.SelectionColor = .Color
      End If
   End With
End Sub
10.指定の文字列を検索する(再度クリックすれば見つかった位置から再度検索する）
　
Private Sub Button10_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles Button10.Click
'指定の文字列を検索する(再度クリックすれば見つかった位置から再度検索する）
   Dim intPos As Integer
   With RichTextBox1
      .SelectionStart = .SelectionStart + .SelectionLength
      .SelectionLength = 0
      intPos = .Find("滋賀県", .SelectionStart, -1, RichTextBoxFinds.None)
      If intPos = -1 Then
         MessageBox.Show("滋賀県" & "は見つかりませんでした")
      End If
      .Focus()
   End With
End Sub
11.選択行を左揃えで表示する
　
Private Sub Button11_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles Button11.Click
'選択行を左揃えで表示する
    RichTextBox1.SelectionAlignment = HorizontalAlignment.Left
End Sub
12.選択行を中央揃えで表示する
　
Private Sub Button12_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles Button12.Click
'選択行を中央揃えで表示する
   RichTextBox1.SelectionAlignment = HorizontalAlignment.Center
End Sub
13.選択行を右揃えで表示する
　
Private Sub Button13_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles Button13.Click
'選択行を右揃えで表示する
   RichTextBox1.SelectionAlignment = HorizontalAlignment.Right
End Sub
14.テキストの総行数を取得する
　
Private Sub Button14_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles Button14.Click
'テキストの総行数を取得する
   Dim nLine As Integer = RichTextBox1.Lines.Length
   Debug.WriteLine(nLine)  '結果  42
End Sub






2004/07/14
2005/10/21


VBレスキュー(花ちゃん)
VB.NET2003　　VB2005