Rubrik: Controls · TextBox & RichTextBox | VB-Versionen: VB.NET | 20.06.07 |
Textbox auf bestimmte Zeichen begrenzen (.NET) Die .NET-Variante des Tipps "Eingabe in Textbox auf bestimmte Zeichen begrenzen" | ||
Autor: Marcus Woida | Bewertung: | Views: 15.065 |
www.mawosoft.de | System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Dieser Tipp beschreibt, wie man in VB.NET die Eingabemöglichkeit in der Textbox auf bestimmte Zeichen beschränkt.
Zunächst die Funktion zur Prüfung der gedrückten Taste am Beispiel der zulässigen Ziffern 0 bis 9, sowie der Tasten Backspace (Löschen), Pfeil links, Pfeil rechts, Entfernen, Pos1 und Ende:
Private Function NoNumber(ByVal Key As Integer) As Boolean ' Prüfen der Zahlen 0 bis 9 auf der Tastatur If Key < Keys.D0 OrElse Key > Keys.D9 Then ' Prüfen der Zahlen 0 bis 9 auf der Zehnertastatur If Key < Keys.NumPad0 OrElse Key > Keys.NumPad9 Then ' Prüfen der Tasten Backspace, Pfeil links, Pfeil rechts, Entf, Pos1 und Ende If Key <> Keys.Back And Key <> Keys.Left And Key <> Keys.Right And _ Key <> Keys.Delete And Key <> Keys.Home And Key <> Keys.End Then NoNumber = True End If End If End If End Function
Aufgerufen wird die Funktion im KeyDown-Ereignis der zu prüfenden Textbox:
Private Sub TextBox1_KeyDown(ByVal sender As Object, _ ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown e.SuppressKeyPress = NoNumber(e.KeyValue) End Sub