KeyCode属性--禁用按键

时　间:2021-07-18 08:30:18
作　者:某.强人   ID：73257  城市：长沙
摘　要:KeyCode=0,对按键进行禁用。
正　文:

一、学友问题描述：

      如何使用代码对键盘按键进行禁用呢？

二、解决方法：

      在KeyDown(键按下)事件中，将KeyCode=0，即可实现。如需使用窗体的键盘事件，需先把键预览（在控件的键盘事件前先调用窗体的键盘事件）打开，如下：

示例代码如下：

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case 37, 38, 39, 40  'Down(40) Right(39) Up(38) Left(37)
            KeyCode = 0       '对方向键进行禁用
    End Select
'Debug.Print "KeyCode is "; KeyCode
End Sub

参考文档:

键值表：http://www.accessoft.com/article-show.asp?id=8697

AutoKeys宏进行热键禁用：http://www.accessoft.com/article-show.asp?id=6986