Hallo zusammen,
ich habe folgendes Problem.
Ich möchte einer Textbox nur Buchstaben und Umlaute erlauben. Wie ich die Buchstaben erlaube habe ich bereits rausgefunden. Nur klappt es bei mir einfach nicht mit den Umlauten.
hier der Code bisher: (Nur Buchstaben)
Code:
Private Sub txtMitName_KeyDown(sender As Object, e As KeyEventArgs) Handles txtMitName.KeyDown
'Erlaubt txtMitname nur Buchstaben
If Not ((e.KeyValue >= 65 AndAlso e.KeyValue <= 90) OrElse
(e.KeyCode = Keys.Back OrElse e.KeyCode = Keys.Left OrElse e.KeyCode = Keys.Right OrElse e.KeyCode = Keys.Space OrElse
e.KeyCode = Keys.Delete)) Then
e.SuppressKeyPress = True
End If
Hier wäre mein Vorschlag mit Umlauten:
Code:
Private Sub txtMitName_KeyDown(sender As Object, e As KeyEventArgs) Handles txtMitName.KeyDown
'Erlaubt txtMitname nur Buchstaben
If Not ((e.KeyValue >= 65 AndAlso e.KeyValue <= 90 AndAlso e.KeyValue = 220) OrElse
(e.KeyCode = Keys.Back OrElse e.KeyCode = Keys.Left OrElse e.KeyCode = Keys.Right OrElse e.KeyCode = Keys.Space OrElse
e.KeyCode = Keys.Delete)) Then
e.SuppressKeyPress = True
End If
220 ist soweit ich weiß der AscII code für Ü.
Hier die Tabelle:
Code:
ä - 228
ö - 246
ü - 252
Ä - 196
Ö - 214
Ü - 220
Wo ist mein Fehler? anstatt AndAlso habe ich auch schon or oder And probiert...