Office中国论坛/Access中国论坛

标题: 自定义窗体“快捷键” [打印本页]

作者: hgt 时间: 2004-10-25 20:38
标题: 自定义窗体“快捷键”
自定义窗体“快捷键”

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 时间: 2008-2-21 18:26
LZ大哥，我怎么按你说的方法做，没有效果啊？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)