С этой маленькой программой вы можете проверить клавиши стрелок. Когда они используются и отпускаются, показывается новая информация.
Вам нужен 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