Rubrik: Controls · TextBox & RichTextBox | VB-Versionen: VB.NET | 03.04.08 |
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: | Views: 14.497 |
www.tools4vb.de | System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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