调试易

Protected Overrides Function ProcessCmdKey
(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean        Dim WM_KEYDOWN As Integer = 256  ‘消息响应的问题可以参考其他win32编程的文章        Dim WM_SYSKEYDOWN As Integer = 260　        If ((msg.Msg = WM_KEYDOWN) Or (msg.Msg = WM_SYSKEYDOWN)) Then            Select Case keyData                Case Keys.Down                       MsgBox("截到下箭头键")                    Return True                Case Keys.Up                    MsgBox("截到上箭头键")                    Return True                Case Keys.Enter                    SendKeys.Send("{Tab}")                    Return True                Case Keys.Control + Keys.M                    MsgBox("<CTRL> + m 组合键被截获")                    Return True                Case Keys.Alt + Keys.Z                    MsgBox("<ALT> + z 组合键被截获")                    Return True            End Select        End If End Function