События клавиатуры

События клавиатуры

Три события клавиатуры инициируются в тех же ситуациях, что и их аналоги из прежних версий VB.

KeyPress: происходит при нажатии клавиши, когда элемент обладает фокусом.

KeyDown: происходит при переходе клавиши в нажатое состояние, когда элемент обладает фокусом.

Key Up: происходит при отпускании клавиши, когда элемент обладает фокусом.

По аналогии с VB6 событие KeyDown инициируется раньше события KeyPress, которое, в свою очередь, предшествует KeyUp. Событие KeyPress использует объект KeyPressEventArgs, в свойстве KeyChar которого передается информация о нажатой клавише. Например, следующий фрагмент выводит окно сообщения в том случае, если введенный символ не является цифрой:

Private Sub TextBoxl_KeyPress(ByVal sender As Object._

ByVal e As System.Windows.Forms.KeyPressEventArgs)

Handles TextBoxl.KeyPress

If e.KeyChar < "0" Or e.KeyChar > "9" Then

MsgBox("only digits allowed")

End If

End Sub

События KeyDown и KeyUp, как и в VB6, могут использоваться для проверки клавиш-модификаторов (таких, как Ctrl и Alt). Класс KeyEventArgs, передаваемый этим событиям, обладает несколько большими возможностями, чем класс KeyPressEventArgs события KeyPress. Класс KeyEventArgs содержит свойство KeyData, в котором при помощи перечисляемого типа Key передается полная информация о комбинациях клавиш и о состоянии клавиш-модификаторов в момент нажатия. Свойства Modi f i ers и Shi ft позволяют узнать об одновременном нажатии трех клавиш (Alt+ +Shift+другая клавиша). Например, следующая команда проверяет, была ли нажата клавиша-модификатор Alt: If e.Modifiers =Keys.Alt Then

Если вас не интересуют такие мелочи, как различия между левой и правой клавишей Shift, удобнее воспользоваться свойствами Control Shift и Alt класса KeyEventArgs.

К сожалению, значения свойств KeyChar и KeyData нельзя сбросить, поскольку они доступны только для чтения [ Возможно, этот недочет будет исправлен в окончательной версии. ]. Впрочем, введенный символ можно «поглотить» и тем самым предотвратить его появление в элементе; для этого свойству Handled объекта события задается значение True. Пример:

If e.KeyChar < "0" Or e.KeyChar >"9" Then

e.Handled = True

End If

В результате неверный символ не появится в текстовой поле.

Содержание раздела