Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, _
ByVal keyData As System.Windows.Forms.Keys _
) As Boolean
Const WM_KEYDOWN As Integer = &H100
Const WM_SYSKEYDOWN As Integer = &H104
If ((msg.Msg = WM_KEYDOWN) Or (msg.Msg = WM_SYSKEYDOWN)) Then
If (keyData >= Keys.F1 And keyData <= Keys.F12) Then
'ここで対応する処理
Return True
End If
End If
Return MyBase.ProcessCmdKey(msg, keyData)
End Function
|
