keypress Event Welche Taste wurde gedrückt ?        Zurück       

Dieses Programm ermöglicht es Ihnen, die Tastatur Eingabe zu begrenzen

Holen Sie sich eine neue Form. Platzieren Sie darauf ein Textfeld ( = Textbox). (Holen Sie sich das Element mit F6 und Doppelclick aus der Werkzeugkiste.)

Die Textbox leeren Sie von der Voreingabe Textbox1. Das können Sie bei den Eigenschaften = Properties machen.

Wird im Textfeld eine Tastatureingabe gemacht , dann ergeben sich die Konsequenzen im Code unten. Hier kann man zb nur Zahlen eingeben.

Programmcode:

PUBLIC SUB TextBox1_KeyPress()

IF key.Code >= 48 AND key.Code <= 57 THEN Textbox1.text = Textbox1.text

ELSE IF key.Code = key.BackSpace THEN Textbox1.Text = “Backspace wurde gedruecktt“

ELSE IF key.Code = key.Delete THEN Then Textbox1.Text = ““

ELSE

STOP EVENT

ENDIF

END