Hallo!
Würde hier gerne der Community einen kleinen Tipp vorstellen, wie man (indirekt) die Zeilenanzahl einer Textbox beschränken kann.
Wenn der Wert überschritten werden würde, würde automatisch der Rest abgeschnitten.
Im Programm kann man z.B. die Funktion wie folgt aufrufen:
Die Textbox heißt in diesem Beispiel "txtNachricht" und wird auf eine Eingabe mit 8 Zeilen beschränkt.
Würde hier gerne der Community einen kleinen Tipp vorstellen, wie man (indirekt) die Zeilenanzahl einer Textbox beschränken kann.
Wenn der Wert überschritten werden würde, würde automatisch der Rest abgeschnitten.
VB.NET-Quellcode
- Public Sub LimitTextboxLines(ByVal TextboxName As Windows.Forms.TextBox, ByVal MaxLines As Integer)
- ' Überprüfung, wie viele Zeilen die Textbox hat
- If TextboxName.Lines.Length > MaxLines Then
- ' Meldung ausgeben
- MsgBox("Es dürfen nicht mehr als " & MaxLines & " eingegeben werden!")
- ' Es werden 2 Zeichen abgeschnitten am Ende, da VB beim drücken der Enter-Taste ein CR + LF erzeugt!
- TextboxName.Text = TextboxName.Text.Substring(0, TextboxName.TextLength - 2)
- ' Cursor ans Ende der Textbox positionieren
- TextboxName.SelectionStart = TextboxName.TextLength
- End If
- End Sub
Im Programm kann man z.B. die Funktion wie folgt aufrufen:
Die Textbox heißt in diesem Beispiel "txtNachricht" und wird auf eine Eingabe mit 8 Zeilen beschränkt.
