VB.NET симулирует нажатие кнопки и как вернуть его в нормальное состояние?

Question

Я затрудняюсь с этим кодом, я объясняю: я создал текстовое поле, и когда я нажимаю клавишу ввода, он имитирует нажатие кнопки.

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

Работает нормально, но как мне вернуть его в нормальное состояние? Я имею в виду, когда я нажимаю кнопку, она не реагирует. Пожалуйста, дождитесь вашей помощи в решении этой проблемы, которая возникает

Answer 1

Обычно не очень хорошая идея вызывать процедуру события. Переместите свой код из Button1.Нажмите на отдельную подпрограмму, затем вызовите его из обоих мест.

    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