一、学友问题描述:
如何使用代码对键盘按键进行禁用呢?
二、解决方法:
在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