Textbox-Eingaben beschränken

[localhorst]

Code: Alles auswählen

    Private Sub tbxSearch_KeyPress(sender As Object, e As KeyPressEventArgs) Handles tbxSearch.KeyPress
        If Not (Asc(e.KeyChar) = 8) Then
            If Not ((Asc(e.KeyChar) >= 97 And Asc(e.KeyChar) <= 122) Or (Asc(e.KeyChar) >= 65 And Asc(e.KeyChar) <= 90)) Then
                e.KeyChar = ChrW(0)
                e.Handled = True
            End If
        End If
    End Sub