Wurde eine Taste gedrückt ? Beispiel Pfeiltasten        Zurück       

Dieses Programm ermöglicht es Ihnen, die Betätigung einer Pfeiltaste abzufragen.

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 der Pfeiltasten Rechts, Links, Oben, Unten betätigt, dann wird der Text in der Textbox entsprechend geändert.

Programmcode:

PUBLIC SUB TextBox1_KeyRelease()

SELECT Key.code

CASE Key.left

Textbox1.Text ="Left"

CASE Key.right

Textbox1.Text ="Right"

CASE Key.up

Textbox1.Text ="Up"

CASE Key.down

Textbox1.Text ="Down"

END SELECT

END

Alter Programmcode

PUBLIC CONST arrow_left AS Integer = 4114

PUBLIC CONST arrow_right AS Integer = 4116

PUBLIC CONST arrow_up AS Integer = 4115

PUBLIC CONST arrow_down AS Integer = 4117

PUBLIC SUB TextBox1_KeyRelease(Ascii AS String, Code AS Integer, State AS Integer)

SELECT code

CASE arrow_left

Textbox1.Text ="Links"

CASE arrow_right

Textbox1.Text ="Rechts"

CASE arrow_up

Textbox1.Text ="Oben"

CASE arrow_down

Textbox1.Text ="Unten"

END SELECT

END

Wenn Sie den Befehl SELECT CASE nicht verstehen dann schauen Sie sich das Miniprogramm zu diesem Befehl an: Select Case