VB.NET中如何实现TextBox按键自动触发按钮点击事件

解决方案思路 #

要实现需求，核心是复用登录逻辑并在文本填充完成后自动触发：

• 将登录按钮的业务逻辑抽成独立方法，避免重复代码
• 在TextBox的按键事件中，完成文本解析填充后直接调用登录逻辑（或触发按钮点击）

修改后的完整代码 #

Private uService As New Database.UserService()
'''****Dapper*******
' 抽离独立的登录逻辑方法
Private Sub PerformLogin()
    Dim user = uService.GetUserByEmail(txtEmail.Text)

    If user Is Nothing Then
        MessageBox.Show("用户不存在")
        Return
    End If

    ' 验证密码
    If user.Password = txtPassword.Text Then
        MessageBox.Show("登录成功")
        ' 加载主窗口
        Program.currentUser = user
        Me.ShowInTaskbar = False
        Me.Hide()
        Call (New FrmMain()).ShowDialog()
        Environment.Exit(0)
    Else
        MessageBox.Show("登录信息无效")
    End If
End Sub

' 按钮点击事件直接调用独立方法
Private Sub btnLogin_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnLogin.Click
    PerformLogin()
End Sub

Private Sub txtEmail_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtEmail.KeyPress
    If e.KeyChar = Chr(13) Then
        parseBarcodeScan(txtEmail.Text)
        ' 填充完成后自动执行登录逻辑
        PerformLogin()
        ' 也可以直接触发按钮点击：btnLogin.PerformClick()
    End If
End Sub

Private Sub parseBarcodeScan(input As String)
    Dim split = input.Split({"-", ":"}, StringSplitOptions.RemoveEmptyEntries).Select(Function(s) s.Trim())
    txtEmail.Text = split(1)
    txtPassword.Text = split(3)
End Sub

关键修改说明 #

• 抽离PerformLogin方法：把原按钮点击事件中的登录逻辑单独封装，不管是手动点击按钮还是自动触发，都能复用同一套逻辑，减少代码冗余。
• 自动触发登录：在条码解析并填充完文本框后，直接调用PerformLogin()，无需手动点击按钮。如果偏好触发按钮原生点击事件，也可以用btnLogin.PerformClick()，效果完全一致。
• （可选优化）如果需要兼容更多特殊按键场景，可改用KeyDown事件，通过判断e.KeyCode = Keys.Enter来触发逻辑，对特殊键的兼容性更强。

内容的提问来源于stack exchange，提问作者roy