vb.net - 在 vb 中通过 Enter 键禁用按钮选择

Question

我设计了一个计算器。基本上我有一个标签和一些按钮，其中包括 btn0........ btn9 等，btnequals。现在，当我单击 btn0...btn1 时，它将数字输入到标签中。但我想使用键盘而不是鼠标。当我将表单键预览属性设置为 true 并使用下面的代码时，一切正常，但是当您使用时箭头键会移动选定的按钮，然后当我按下 Enter 键时，它会按下选定的按钮。

此问题的标准:

1) 不能使用文本框代替标签。

这些解决方案之一可以帮助我...

1)完全禁用回车键。它应该就像键盘上的死键一样。

2) 即使移动箭头键，也禁用程序选择按钮。

3)以这样一种方式编程，即只有当我按下回车键时它才应该单击等于按钮。

请帮助我摆脱这个问题。并提前致谢。

我使用的代码是:

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress

    If e.KeyChar = "0" Then
        Btn0.PerformClick()
    ElseIf e.KeyChar = "1" Then
        Btn1.PerformClick()
    ElseIf e.KeyChar = "2" Then
        Btn2.PerformClick()
    ElseIf e.KeyChar = "3" Then
        Btn3.PerformClick()
    ElseIf e.KeyChar = "4" Then
        Btn4.PerformClick()
    ElseIf e.KeyChar = "5" Then
        Btn5.PerformClick()
    ElseIf e.KeyChar = "6" Then
        Btn6.PerformClick()
    ElseIf e.KeyChar = "7" Then
        Btn7.PerformClick()
    ElseIf e.KeyChar = "8" Then
        Btn8.PerformClick()
    ElseIf e.KeyChar = "9" Then
        Btn9.PerformClick()
    Else
        'Donothing Just Ignore
    End If
End Sub

Answer 1

我最近遇到了这个问题，我想出的解决方案又快又简单。
每次按下按钮后，只需将焦点移到标签上即可!
例如，这样做:

Private Sub Btn0_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    'Do stuff
    Label1.Focus()
End Sub

这将聚焦标签 这意味着按钮将失去焦点，这意味着当您按 Enter 时不会单击它.祝你好运!