按 Enter 与单击 Windows 窗体的 AcceptButton 不同

Question

我有一个简单的 VB.Net Windows 窗体应用程序，它有两个文本框和一个按钮，它是表单的 AcceptButton。唯一的代码在 ButtonClick 上，并使用 Leave 事件对每个 TextBox 进行验证。 （我也尝试了 LostFocus 事件，它似乎工作相同）。我的问题是，如果我用鼠标单击 Button，则用户所在的 TextBox 会发生正确的 Leave（或 LostFocus）事件，但是如果我按 Enter，则焦点不会丢失，因此该 TextBox 的代码确实不跑。

如何使 Enter 键的行为与单击表单的 AcceptButton 相同？

Answer 1

当您直接点击按钮时，会出现一系列事件，包括TextBox.LostFocus、TextBox.Leave、Button.MouseEnter、Button.Click

但是当您按下 Enter 时，它是拦截按键的表单，如果它是 Enter 并且有一个 AcceptButton，则启动它的 PerformClick 方法而不引发大多数这些事件。

您可以轻松验证；通过设计器将 Button 的 DialogResult 设置为一个值，并在将 DialogResult 更改为另一个值时处理 Button 的 GotFocus 事件。 然后测试你的代码（存储Form.ShowDialog的结果）；通过直接单击，您将获得在 GotFocus 上设置的值，因为它是在单击表单期间将其设置为按钮的 DialogResult 值上的 DialogResult ；按下 Enter，您将获得初始 Dialogresult（设计者的），有效地证明 GotFocus 未被输入。

回到当前问题；要解决它，您需要在Validating（或Validated）事件中处理您的验证；确保您的 Textbox CauseValidation 设置为 true [默认值]，否则不会引发这些事件。您可以在其中将 e.Cancel （使用 e CancelEventArgs 参数）设置为 true 以停止验证（和事件链）有效地将焦点保持在“无效”控件内（并且这也可以防止按钮单击任何用于达到的方式它）

一个例子：这个表单有两个文本框和一个按钮作为表单的 AcceptButton 并“验证”它的输入，这样就不允许空的 TextBox.Text

Public Class NonEmptyTextBoxesForm
    Private Sub TextBoxes_Validating(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating, TextBox2.Validating
        Dim tb = DirectCast(sender, TextBox)
        e.Cancel = tb.Text = "" ' e.Cancel = (tb.Text = "") ' if that's make this clearer
    End Sub
End Class

Answer 2

所以当您单击 Enter 键时，您会失去从文本框到按钮的焦点？！ 如果是这样，你可以试试这个：

   Protected Overrides Function ProcessCmdKey(ByRef sMessage As Message, ByVal oKeyData As Keys) As Boolean
    If oKeyData = Keys.Enter Then
        Me.Textbox1.Focus()
        AcceptButton.PerformClick()
        Return True
    ElseIf oKeyData = Keys.Escape Then
        Application.Exit()
        Return True
    Else
        Return MyBase.ProcessCmdKey(sMessage, oKeyData)
    End If
   End Function

希望对你有所帮助；）

Answer 3

我同意 Plutonix - 为什么不将两个文本框的验证都放在点击事件中？ （除非这是出于教育目的？）

如果您真的想验证文本框的离开事件，并且您需要在当前文本框上的验证在您按下 Enter 时按钮执行任何操作之前运行，那么您需要一个按键事件来处理按键对于两个文本框。在那里，检查按下的键是否是输入，如果是，那么你可以获取具有焦点的文本框...调用它的离开事件，然后调用按钮的单击事件。

这有意义吗？

Answer 4

如何使 Enter 键的行为与单击表单的 AcceptButton 相同？

要使 ENTER 键的行为与单击 ACCEPT 按钮的行为相同，您可以使用表单的 ACCEPTBUTTON 属性并分配您希望在按下 ENTER 键时单击的按钮。

虽然这会导致按钮点击事件中的代码执行， 不知道TEXTBOX-LOSTFOCUS事件中的代码会不会执行！

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  '
  ' Assign default button for ENTER key (Okay Button)
  Me.AcceptButton = Me.MyOkayButton
  '
  ' Assign default button for ESCAPE key (Cancel Button)
  Me.CancelButton = Me.MyCancelButton
  '
End Sub