KeyPreview
フォームのプロパティが に設定されていることを確認する必要がありTrue
ます。そうしないと、フォームがキーストロークを処理しません。また、大文字と小文字の両方をテストします。
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 87 Or KeyAscii = 119 Then '87 is upper case 119 is lower case
Unload Me
End If
End Sub
Control や Alt などの修飾キーを確認する場合は、KeyDown
代わりにフォームの EventHandler を使用します。
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (Shift And 1) Then ' Test for Shift Key
If (KeyCode = 87 Or KeyCode = 119) Then
Unload Me
End If
End If
If (Shift And 2) Then 'Test for Control Key
If (KeyCode = 87 Or KeyCode = 119) Then
Unload Me
End If
End If
If (Shift And 4) Then 'Test for Alt Key
If (KeyCode = 87 Or KeyCode = 119) Then
Unload Me
End If
End If
End Sub