自定义窗体“快捷键”

hgt

自定义窗体“快捷键”

1；窗体“键预览”改为“是”

2；在窗体“键按下”事件判断按下什么键，如：

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyF8 Then MsgBox "F8"  '如果按下“F8”就显示“F8”

End Sub





阻止窗体其他控件接收按键。由窗体统一调度按键事件的方法：

1；窗体“键预览”改为“是”  '窗体接收所有按键。

2；在窗体“键按下”事件写：

If KeyCode = vbKeyF8 Then MsgBox "F8"  '必须先处理按键事件，再清除按键值。

KeyCode = 0  '因为窗体按键事件比控件先发生，把按键清除，就不会传给控件。

3；在窗体“键释放”事件写：

KeyCode = 0

4；在窗体“击键”事件写：

KeyAscii = 0

chengm

LZ大哥，我怎么按你说的方法做，没有效果啊？