Событие SelectedIndexChanged ComboBox не вызывается при вводе

отказ от ответственности: это написано на C# - дайте мне знать, если вам нужно перевести его на VB.

private void comboBox1_PreviewKeyDown(object sender, PreviewKeyDownEventArgs e)
{
    //It's important to also check that the Combo Box is displaying its Drop Down. If
    //you want this to execute even when it is not displayed, remove the check for
    //comboBox1.DroppedDown.
    if (e.KeyCode == Keys.Enter && comboBox1.DroppedDown &&
        !string.IsNullOrEmpty(comboBox1.Text))
    {
        int index;
        //Attempt to locate the string typed in by the user. An index of -1
        //means it was not found.
        if ((index = comboBox1.FindStringExact(comboBox1.Text)) != -1)
        {
            //Update the SelectedIndex.
            comboBox1.SelectedIndex = index;
        }
    }
}

интересно, что docs говорят, что мы должны использовать SelectionChangeCommitted событие вместо SelectedIndexChanged событие при обработке изменений выбора, сделанных пользователем. Это необходимо сделать в этом случае как SelectedIndexChanged событие дважды, используя мой подход.

Edit:

чтобы запретить пользователю вводить всю строку, используйте совет из ответа Adi: перейдите в свойства поля со списком и установите set AutoCompleteMode до SuggestAppend и AutoCompleteSource to ListItems - Я actully использовал эти настройки при создании моего ответа, поэтому он должен работать для вас.

Private Sub ComboBox1_KeyUp(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyUp
    If e.KeyCode = Keys.Enter Then
        MessageBox.Show(ComboBox1.SelectedText)
        Call SomeMethod()
    End If
End Sub

Я считаю, что вы должны установить AutoCompleteMode до SuggestAppend и AutoCompleteSource to ListItems. Таким образом, если то, что вы вводите, устойчиво с элементами, загруженными в ComboBox, записав его и найдя этот элемент, при нажатии Enter, the SelectedIndexChanged будет уволен (даже если матч не будет найден - будет выбран первый в списке)

Я приготовил что-то указать на это вы.

С уважением,

Ади Константин

подпишитесь на событие KeyPressed:

Private Sub yourComboBox_KeyPressed(sender As System.Object, e As System.KeyPressedEventArgs) Handles yourComboBox.KeyPressed
    If e.KeyChar.Equals((char)Keys.Enter) Then
        Call SomeMethod()
End If

это поможет вашим проблемам

 Private Sub ComboBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
    If e.KeyCode = Keys.Enter Then
        MsgBox("hello")'call some functions
    End If
End Sub

можете ли вы дайте мне знать, если это работает для вас?

    Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
      If e.KeyChar = Chr(13) Then
        ComboBox1_SelectedIndexChanged(sender, e)
      End If
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
      MsgBox(ComboBox1.Text)
      'Your code here
    End Sub

У меня была аналогичная проблема, когда ComboBox dropdownstyle был установлен в простой с автозаполнением, чтобы добавить, источник из моих listitems. Мой обходной путь должен был иметь строковую переменную, сохраняющую текст combobox при каждом событии textchanged. Таким образом, при нажатии ENTER вы можете получить удаленный текст и переназначить его в текст combobox.

'глобальная декларация

'Global declaraion
dim selected_text as string = ""

 Private Sub combobox_textchanged(sender As Object, e As EventArgs) Handles combobox.TextChanged
        If combobox.Text IsNot Nothing And combobox.Text <> "" Then
            selected_text = combobox.Text
        End If
 End Sub

Private Sub combobox_keydown(sender As Object, e As KeyEventArgs) Handles combobox.KeyDown
        If e.KeyCode = Keys.Enter Then
            combobox.Text = selected_text
            'put logic here
        End If
End Sub

есть несколько отличных ответов выше, но мне понравилось, что мне не нужно было сортировать все клавиши управления и стрелки etc.

закройте список вручную на PreviewKeyDown событие:

Private Sub cmbStatus_PreviewKeyDown(sender As ComboBox, e As PreviewKeyDownEventArgs) Handles cmbStatus.PreviewKeyDown
    If e.KeyCode = Keys.Enter Then sender.DroppedDown = False
End Sub