Работа с клавиатурой в VB.Net, Часть II

В предыдущем шаге ты узнал об основах работы с клавиатурой, в этой части речь пойдет о проверке состояния клавиш(включая Control, Alt, Shift). Сейчас мы сделаем программу, которая будет проверять нажатия некоторых клавиш. На форму ни чего не размещай, вот код:

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.Control = True And e.KeyCode = Keys.Q Then MsgBox("Нажата Control и Q") ' Если нажата клавиша Contro(вместо неё можно написать Alt или Shift) и Q то выдаем сообщение
End Sub 

Наверное ты заметил, что свойство KeyCode не умеет обрабатывать русские буквы. Для обработки русских и прописных букв надо использовать событие KeyPress и свойство KeyChar. Вот код:

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
If e.KeyChar = "п" Then MsgBox("Нажата клавиша: п") ' Если нажата клавиша 'п' то выводим сообщение
End Sub

Исходник