VB6 KeyDown取消按键失败

Question

我试图检测用户何时按下文本框中的某些键，然后我想根据他们的按键增加或减少文本中的值并取消他们按下的键。取消部分不起作用。如果我想取消他们的按键，我习惯于只输入 KeyCode = 0，就像我在 MS Access 中所做的那样。但是，这在 VB6 中对我不起作用。加号进入文本框。

有什么建议？

Answer 1

我会说忽略 KeyDown事件，只需使用 KeyPress事件:

Private Sub RTB_KeyPress(KeyAscii As Integer)

    ' "Cancel" the keystroke   
    KeyAscii = 0

End Sub

不过，最好的方法是设置表单的 KeyPreview属性(property)到 True ，然后为表单的 KeyPress 添加处理程序事件 - 这意味着表单有机会首先处理任何击键。通过在此处处理并按上述方式取消，您可以随意更改文本框中的文本。

我在职业生涯的前 10 年使用 Visual Basic，但我不得不谷歌搜索上述代码。我建议至少继续使用 VB.NET - 有时您甚至可以将 VB6 项目导入 .NET(有时)。