Как я могу назвать KeyDown события, передавая аргументы, Winforms Vb.net

Question

Этого комбинированного список KeyDown событие

Private Sub ComboBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles ComboBox1.KeyDown 
     If e.KeyCode = Keys.Enter Then 
      TextBox2.Text = ComboBox1.Text 
      TextBox2.Focus() 
     End If 
    End Sub 

Я хотел бы, чтобы вызвать то же событие из combobox_leave пропускания «введите ключ» Я сделал, как следует, но не работает, как это сделать?

Private Sub ComboBox1_Leave(sender As Object, e As EventArgs) Handles ComboBox1.Leave 
    ComboBox1_KeyDown(Me, Keys.Enter) 
End Sub 

Answer 1

Почему бы не просто извлечь метод из реального события?

Private Sub ComboBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles ComboBox1.KeyDown 
    performAction(e.KeyCode); 
End Sub 

Private Sub performAction(e as Keys) 
    If e = Keys.Enter Then 
     TextBox2.Text = ComboBox1.Text 
     TextBox2.Focus() 
    End If 
End Sub 

Private Sub ComboBox1_Leave(sender As Object, e As EventArgs) Handles ComboBox1.Leave 
    performAction(Keys.Enter); 
End Sub 

Answer 2

Вы также можете использовать SendKeys.Send метод

Когда пользователь покидает COMBOBOX (как в вашем примере),

Вы можете установить обратно Фокус на выпадающий список

, а затем используйте SendKeys.Send("{ENTER}") для запуска ввода ключа.

так же, как это:

Private Sub ComboBox1_Leave(sender As Object, e As EventArgs) Handles ComboBox1.Leave 

     ComboBox1.Focus() 
     SendKeys.Send("{ENTER}") 
End Sub 

Однако это не позволяет пользователям фокусировки к другому компоненту. Чтобы этого избежать, вы можете использовать if statement, если пользователь нажимает или фокусируется на другом компоненте после фокусировки на выпадающем списке, пользователь все равно может «оставить» выпадающий список.

Ваш подход нецелесообразен, и это приводит к недоразумению в части пользователя.

Answer 3

попробовать это:

Private Sub ComboBox1_KeyDown(sender As Object, e As 
keyEventArgs) Handles ComboBox1.KeyDown 
    Dim _KeyCode As Short 
    If e Is Nothing Then 
     _KeyCode = 13 
    Else 
     _KeyCode = Keys.Enter 
    End If 

    If _KeyCode = Keys.Enter Then 
     TextBox2.Text = ComboBox1.Text 
     TextBox2.Focus() 
    End If 
End Sub 

Private Sub ComboBox1_Leave(sender As Object, e As EventArgs) 
Handles ComboBox1.Leave 
Dim keypress As System.Windows.Forms.KeyPressEventArgs 
    ComboBox1_KeyDown(sender, keypress) 
End Sub