键入- VB6时禁用HotKeys

Question

在我的VB6程序中，我有大量的热键，比如X，A，D……等等。我还有一个聊天系统，每次我使用字符X或A时，它都会执行这些热键的操作。例如，如果X要关闭应用程序(并不是真的关闭)，当我在聊天文本框中键入"fiXing“时，它将关闭应用程序。有没有人能告诉我，除了Enter键之外，在打字时如何禁用热键？

谢谢,

凯文

Answer 1

在chat TextBox的GotFocus事件中设置一个标志来禁用你的热键，然后在TextBox的LostFocus事件中重新启用它们。

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

Private suppressHotkeys As Boolean

Private Sub txtChat_GotFocus()
  suppressHotkeys = True
End Sub

Private Sub txtChat_LostFocus()
  suppressHotkeys = False
End Sub

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

If (Not suppressHotkeys) Then
  //process hotkey
End If