Zeichenstring abfragen mit Visual basic

R

Rackberg

Grünschnabel
Hallo,

ich bin gerade dabei ein Programm zu schreiben, bei dem man nur Zahlen und keine Buchstaben in eine Textbox eingeben darf!

Wenn jemand einen Buchstaben in die Textbox eingibt, soll der Eintrag in der Textbox sofort wieder gelöscht werden.

Kann mir vielleicht jemand helfen?
 
Das kannst Du im KeyPress-Ereignis der TextBox abfragen:
Code: 
If Asc(zeichen) >= 48 And Asc(zeichen) <= 57 Then
    TextBox1.Text = ""
End If
 
Vielen Dank

für die schnelle Antwort, doch ich hab da nochn problem mit "zeichen" in der If-Abfrage. Muss ich das noch irgendwie definieren?


Ich hab es mal ausprobiert aber er kann dann auch keine anderen Zeichen mehr schreiben, er soll ja noch Zahlen anzeigen können!
 
ich hab da nochn problem mit "zeichen" in der If-Abfrage. Muss ich das noch irgendwie definieren?
Zum Vergrößern anklicken....
Damit meinte ich das Zeichen, das auf der Tastatur gedrückt worden ist. Das wird normalerweise als Parameter an die Ereignismethode übergeben.
Genauer hinsehen. ;)
 
In Deinem ganz speziellen Fall also einfach nur

Code: 
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then KeyAscii = 0
End Sub

Das geht so einfach, weil KeyAscii ja ByRef und nicht nur ByVal übergeben wird ;)

hdh, yves ;-)
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück