时间戳

首页 > 解决方案 > VB.NET模拟按钮点击，如何恢复正常？

vb.net - VB.NET模拟按钮点击，如何恢复正常？

问题描述

我对这段代码有困难，我解释说：我创建了一个文本框，当我按下回车键时，它模拟单击一个按钮。

Sub TextBox1KeyDown(sender As Object, e As KeyEventArgs)
    If e.KeyCode = Keys.Enter Then
        'simulate to press Button
        Button1Click(sender,New EventArgs)
    Else
        'code to return to normal
    End If
End Sub

它工作正常，但我如何恢复正常？我的意思是，当我单击按钮时，它没有反应。出现此问题，请等待您的帮助

标签： vb.netbuttonkeycodesimulate

解决方案

调用事件过程通常不是一个好主意。将您的代码从 Button1.Click 移动到一个单独的子，然后从两个地方调用它。

    Private Sub TextBox1_KeyDown_1(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyCode = Keys.Enter Then
            'simulate to press Button
            MyButtonSub()
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MyButtonSub()
    End Sub

    Private Sub MyButtonSub()
        MessageBox.Show("Button One was clicked or pretend clicked.")
    End Sub

推荐阅读