关于触发键盘事件的问题

[guofu_9070]

一个窗体，没有关闭按钮，想通过快捷键关闭，请问该如何设置CTRL+F4关闭程序，是在Form_KeyDown事件中么？但是有时焦点在TEXT控件中时，按下两个键，Form_KeyDown事件不响应，该如何做呢？请高人指点迷津谢谢

[咸清]

搜索 全局快捷键 或者 全局钩子
应该能找到你想要的
不需要用 Form_KeyDown

[xxfly]

是否已设置 窗体keypreview=true

[贝隆]

最好的办法就是Hook
当Hook到指定按键消息时，关闭即可

[路小雨]

不用hook
用 GetAsyncKeyState api 就行了
再多一个计数器 就可以实现

不懂加我QQ839658030

[Gordon_Freeman]

最简单的方法

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyF4 And Shift = vbCtrlMask Then
        Unload Me
    End If
End Sub

[Gordon_Freeman]

[Quote=引用 5 楼 hellogmh 的回复:]

最简单的方法
VB code

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF4 And Shift = vbCtrlMask Then
Unload Me
End If
End Sub
[/Quote]

KeyDown中还有一个参数Shift,取值有下列3种情况

vbShiftMask
vbCtrlMask
vbAltMask

当按下相对应的组合键时，通过判断Shift就可以实现相应的功能，焦点落在TextBox控件上经过测试Form仍然可以触发KeyDown事件

[wxs5211614]

用钩子偶就可以了啊！

[lliai]

我一般在窗体的各个控件的Form_KeyDown都写相同的程序；这是笨办法。呵呵，可也有效。

[zhoushunda960]

[Quote=引用 1 楼 ybh37 的回复:]
搜索 全局快捷键 或者 全局钩子
应该能找到你想要的
不需要用 Form_KeyDown
[/Quote]
VB调用API函数，开销是很大的。VB既然提供了这个功能，为什么不直接用？

[赵4老师]

[Quote=引用 2 楼 xxfly 的回复:]
是否已设置 窗体keypreview=true
[/Quote]
正解！