键入时禁用HotKeys - VB6

Question

在我的VB6程序中，我有很多热键，如X，A，D ...... ETC。我也有一个聊天系统，每次我使用字符X或A时它会执行这些热键的操作。例如，如果X要关闭应用程序（而不是它确实关闭），当我在聊天文本框中键入“fiXing”时，它将关闭应用程序。任何人都可以告诉我如何在键入EXCEPT Enter键时禁用热键吗？

感谢，

凯文

Answer 1

在聊天TextBox的{​​{1}}事件中设置一个标志以禁用热键。然后在GotFocus的{​​{1}}事件中重新启用它们。

我不知道你如何捕获热键，但设置标志的代码非常简单：

TextBox

然后在捕获热键的代码中，只需检查标志：

LostFocus

Answer 2

使用热键的组合键可能会更好。更常见的是按 Ctrl + X 或 Alt + X 。您可以在KeyDown或KeyUp事件中测试它们。

If KeyCode = vbKeyX And (Shift And vbCtrlMask = vbCtrlMask) Then
    ' Do something
End If