Auto-Indent f?r die (RTF)TextBox Dieser Tipp zeigt, wie sich eine AutoIndent-Funktion f?r die Standard-TextBox bzw. f?r das RichTextBox-Control in VB.NET realisieren l?sst - so wie man es von der VB-IDE her kennt und gewohnt ist.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  7.519
www.tools4vb.de	System:  WinNT, Win2k, WinXP, Vista, Win7, Win8	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 19 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 5.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

In unserem heutigen Tipp zeigen wir eine einfache Möglichkeit einer "AutoIndent"-Funktion für die Standard-TextBox bzw. für das RichTextBox-Control. Hierbei soll beim Drücken der Enter-Taste die nachfolgende Zeile autom. eingerückt werden, und zwar um so viele Leerzeichen wie auch die aktuelle Zeile mit den entsprechenden Anzahl Leerzeichen eingerückt ist.

Fügen Sie hierzu nachfolgende Funktion in Ihr Projekt ein:

''' <summary>
''' Autom. Einrücken der nachfolgende Zeile beim Drücken von ENTER
''' </summary>
''' <param name="oTextBox">RichTextBox oder TextBox-Control</param>
Public Sub DoAutoIndent(ByVal oTextBox As Object)
  Dim nSpaces As Integer = 0
 
  With oTextBox
    ' zunächst die Anzahl führender Leerzeichen der 
    ' vorigen Zeile ermitteln
    Dim nPos As Integer = .Text.Substring(0, .SelectionStart).LastIndexOf(Chr(10))
    If nPos >= 0 Then
      nPos += 1
      While .Text.Substring(nPos, 1) = " "
        nSpaces += 1
        nPos += 1
      End While
    End If
 
    ' jetzt Zeilenumbruch und ermittelte Anzahl Leerzeichen 
    ' an der aktuellen Eingabepostion einfügen
    .SelectedText = vbNewLine & Strings.StrDup(nSpaces, " ")
  End With
End Sub

Soll die AutoIndent-Funktion für ein RichTextBox-Control verwendet werden, fügen Sie im KeyDown-Event der RTF-TextBox folgenden Code ein:

Private Sub RichTextBox1_KeyDown(ByVal sender As Object, _
  ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyDown
 
  ' Prüfen, ob ENTER gedrückt wurde
  If e.KeyCode = Keys.Enter Then
    ' Zeilenumbruch unterdrücken
    e.Handled = True
 
    ' neue Zeile autom. einrücken
    DoAutoIndent(RichTextBox1)
  End If
End Sub

Wird die AutoIndent-Funktion hingegen für die Standard-TextBox (MutiLine) benötigt, fügen Sie folgenden Code im KeyPress-Event ein:

Private Sub TextBox1_KeyPress(ByVal sender As Object, _
  ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
 
  ' Prüfen, ob ENTER gedrückt wurde
  If e.KeyChar = Chr(13) Then
    ' Zeilenumbruch unterdrücken
    e.Handled = True
 
    ' neue Zeile autom. einrücken
    DoAutoIndent(TextBox1)
  End If
End Sub