Программа отпускания клавиши

С этой маленькой программой вы можете проверить клавиши стрелок. Когда они используются и отпускаются, показывается новая информация.

Вам нужен textbox , чтобы программа работала.

Когда вы запустите программу и вы используете клавишу стрелки в textbox, содержимое textbox изменится.

Код

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

-- ReinerHoffmann - 31 Jan 2004

KeyRelease event does not have any parameter anymore, and you should better use Key.Left, Key.Right, Key.Up and Key.Down instead of the numeric values. -- BenoitMinisini - 05 Feb 2004

fixed now (I think ;) ) -- RobKudla - 10 Feb 2004