VB.NET：ComboBox按上下箭头时TextBox未同步的问题求助

问题根源 #

1. 事件触发时机错误：ComboBox1_KeyDown事件在按键按下时立即触发，此时ComboBox的选中项尚未更新，ComboBox1.Text仍为操作前的旧值，导致GetItemData传入错误参数，无法同步正确的ColorName到TextBox。
2. 冗余操作：每次按上下箭头都执行ComboBox1.Items.Add(ComboBox1.Text)，会导致Items列表出现大量重复项，属于无效操作。

修正方案 #

通过替换事件监听逻辑，确保选中项变更时能获取到最新值，同时优化冗余代码：

Public Class Form4
    Public Sub New()
        InitializeComponent()
        ComboBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend
        ComboBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
    End Sub

    Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox1.AutoCompleteCustomSource = AutoSuggestList()
        ' 初始化时若有默认选中项，同步TextBox内容
        If ComboBox1.SelectedIndex <> -1 Then
            GetItemData(ComboBox1.SelectedItem.ToString())
        End If
    End Sub

    Private Function AutoSuggestList() As AutoCompleteStringCollection
        Dim collection As New AutoCompleteStringCollection
        Using connection As New OleDbConnection(GetOledbConnectionString())
            collection.AddRange(connection.Query(Of String)("SELECT ColorCode FROM ColorCode").ToArray)
        End Using
        Return collection
    End Function

    Private Sub GetItemData(ByVal iditem As String)
        Dim item = COLORCODESERVICE.GetByColorcode2(iditem)
        If item IsNot Nothing Then
            TextBox1.Text = item.Colorname
            ComboBox1.Text = item.Colorcode
        Else
            MsgBox("未找到对应色码...")
            ComboBox1.ResetText()
            TextBox1.Clear()
        End If
    End Sub

    Private Sub ComboBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles ComboBox1.KeyDown
        If e.KeyCode = Keys.Enter Then
            ' 按Enter确认输入时同步内容，避免重复添加项
            GetItemData(ComboBox1.Text)
            If Not ComboBox1.Items.Contains(ComboBox1.Text) Then
                ComboBox1.Items.Add(ComboBox1.Text)
            End If
        ElseIf e.KeyCode = Keys.Back OrElse e.KeyCode = Keys.Delete Then
            ComboBox1.ResetText()
            TextBox1.Clear()
        End If
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        ' 捕获上下箭头、鼠标点击等选中项变更操作
        If ComboBox1.SelectedItem IsNot Nothing Then
            GetItemData(ComboBox1.SelectedItem.ToString())
        End If
    End Sub

    Private Sub ComboBox1_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles ComboBox1.SelectionChangeCommitted
        ' 补充处理AutoComplete下拉列表选中的场景
        If ComboBox1.SelectedItem IsNot Nothing Then
            GetItemData(ComboBox1.SelectedItem.ToString())
        End If
    End Sub

    Private Sub ComboBox1_TextUpdate(sender As Object, e As EventArgs) Handles ComboBox1.TextUpdate
        TextBox1.Clear()
    End Sub
End Class

关键说明 #

• SelectedIndexChanged事件：覆盖上下箭头、鼠标点击等所有选中项变更场景，此时SelectedItem已更新为最新选项，能正确获取色码同步TextBox。
• SelectionChangeCommitted事件：补充处理AutoComplete下拉列表选中的特殊场景，避免部分情况下选中后无法触发同步。
• 移除冗余操作：仅在按Enter确认输入时添加新项，且判断是否已存在，避免Items列表重复。

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