Welche Taste wurde gedrückt ?        Zurück       

Dieses Programm ermöglicht es Ihnen, den Keycode abzufragen, wenn eine Taste gedrückt wurde.

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 Taste betätigt, dann wird der Keycode über den Print befehl ausgegeben.

Ändern Sie das Programm so, dass der Keycode in einer weiteren Textbox2 ausgegeben wird.

Ändern Sie das Programm so, dass der Keycode bereits ohne Textbox ausgegeben wird.

Wenn Sie in einem Programmcode key. eingeben , dann erscheint ein Auswahlfeld mit allen Möglichkeiten die hinter dem Befehl Key auftauchen dürfen.

Ist key ein Objekt oder eine Klasse oder was sosnt ?

Programmcode:

PUBLIC SUB TextBox1_KeyRelease()

PRINT key.code

END

PUBLIC SUB TextBox1_KeyPress()

TextBox2.text = key.code

END

PUBLIC SUB Form_KeyRelease()

PRINT key.code

END

Varianten ohne Textbox

PUBLIC SUB Button1_KeyPress()

IF Key.Code = 4116 THEN

Message("Die Pfeilnachrechts Taste wurde gedrückt ")

END IF

END

PUBLIC SUB Button1_KeyRelease()

IF Key.Code = Key.Right THEN

Message("Die Pfeilnachrechts Taste wurde gedrückt ")

END IF

END

Varianten

' Gambas class file

PUBLIC SUB Form_keypress()

Message.Info(Key.Code)

END

PUBLIC SUB Form_Open()

ME.Text = "Drücken Sie irgend eine Taste !"

END