Private Sub Textbox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Textbox1.KeyPress
Select Case Asc(e.KeyChar)
Case 48 To 57
' Zahlen zulassen
Case Else
' alle anderen Eingaben unterdrücken
e.Handled = True
End Select
End Sub
Weitere Inhalte können nur Nutzer sehen, die bei uns eingeloggt sind.
