Hallo zusammen,
möchte gerne mit der folgenden Anweisung, meine Textbox bei der Eingabe auf Sonderzeichen überprüfen.
Jedoch meldet er mir, dass alle Zeichen außerhalb der gültigen Bedingung ist.
Könnt ihr vielleicht sagen, was ich falsch machen?
Hatte das erst so: 'txtBeschreibung.Text = txtBeschreibung.Text.Replace("&", "und") vor, jedoch wird der Cursor immer neu an den Anfang der Textbox gesetzt. Daher fällt diese Methode wohl aus.
Hintergrund: für die Weiterverarbeitung darf kein & Zeichen vorhanden sein.
Gruß
Klaus
möchte gerne mit der folgenden Anweisung, meine Textbox bei der Eingabe auf Sonderzeichen überprüfen.
Jedoch meldet er mir, dass alle Zeichen außerhalb der gültigen Bedingung ist.
Könnt ihr vielleicht sagen, was ich falsch machen?
VB.NET-Quellcode
- Private Sub txtBeschreibung_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBeschreibung.TextChanged
- 'Sonderzeichenprüfung
- For Each Buchstabe In txtBeschreibung.Text
- Select Case Asc(Buchstabe)
- Case 48 - 57, 65 - 90, 97 - 122
- 'alles in ordnung
- Case Else
- MsgBox("Unzulässige Zeichen!")
- Exit For
- End Select
- Next
- End Sub
Hatte das erst so: 'txtBeschreibung.Text = txtBeschreibung.Text.Replace("&", "und") vor, jedoch wird der Cursor immer neu an den Anfang der Textbox gesetzt. Daher fällt diese Methode wohl aus.
Hintergrund: für die Weiterverarbeitung darf kein & Zeichen vorhanden sein.
Gruß
Klaus