VB.NET中ComboBox需按两次Esc键的原因及解决方法咨询

使用DropdownStyle为Dropdown的ComboBox控件时，按Enter键一次即可触发对应处理逻辑，但按Esc键却需要按两次才生效。当前通过String.Equals方法对比ComboBox与TextBox的值校验选中值正确性，需排查Esc键需按两次的原因并获取技术指导。

相关代码 #

Public Class Form4
    Private count As Integer = 1
Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
        If keyData.ToString() = "Escape" Then
            If count = 1 Then
                count += 1
                Label1.Text = "You are pressing key escape once"
            ElseIf count = 2 Then
                Label1.Text = "You are pressing key escape twice"
            End If

        End If
        Return MyBase.ProcessCmdKey(msg, keyData)
    End Function
 Public Sub New()
        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.

        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()
    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
            If String.Equals(iditem, item.Colorcode, StringComparison.CurrentCultureIgnoreCase) Then
                ComboBox1.Text = item.Colorcode
            End If
            TextBox1.Text = item.Colorname
        Else
            MsgBox("Not Found Colorcode...")
            ComboBox1.ResetText()
            TextBox1.Clear()
            Return
        End If
    End Sub
 Private Sub ComboBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles ComboBox1.KeyDown
        If e.KeyCode = Keys.Enter Or e.KeyCode = Keys.Escape Then
            GetItemData(ComboBox1.Text)
        ElseIf e.KeyCode = Keys.Back Then
            ComboBox1.ResetText()
            TextBox1.Clear()
        End If
    End Sub
End Class

演示效果 #

1. ComboBox默认行为拦截第一次Esc：当ComboBox处于编辑状态（DropdownStyle=Dropdown）时，第一次按下Esc键会被控件自身处理，用于取消当前编辑输入（清除输入框未确认内容），此时KeyDown事件虽触发，但控件默认逻辑优先执行，导致你的处理逻辑未达预期。
2. 事件处理冲突：ProcessCmdKey和ComboBox1_KeyDown同时监听Esc键，第一次按键时控件先完成默认取消编辑动作，第二次按键时编辑状态结束，你的逻辑才完全生效。
3. GetItemData重置操作干扰：第一次按Esc时，GetItemData会查询当前输入值，若值无效（Esc已清空部分内容），会执行ComboBox1.ResetText()，触发控件状态变化，导致需要第二次按键完成流程。

方案1：在KeyDown中阻止Esc默认行为 #

修改ComboBox1_KeyDown事件，将Esc的处理与Enter分离，直接执行重置逻辑并标记事件已处理，阻止控件默认行为：

Private Sub ComboBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles ComboBox1.KeyDown
    If e.KeyCode = Keys.Enter Then
        GetItemData(ComboBox1.Text)
    ElseIf e.KeyCode = Keys.Escape Then
        ComboBox1.ResetText()
        TextBox1.Clear()
        e.Handled = True ' 阻止控件默认的Esc处理逻辑
    ElseIf e.KeyCode = Keys.Back Then
        ComboBox1.ResetText()
        TextBox1.Clear()
    End If
End Sub

该方案符合用户对Esc键“取消当前输入”的操作预期，同时避免两次按键问题。

方案2：调整ProcessCmdKey逻辑优先处理Esc #

若需保留计数逻辑，修改ProcessCmdKey方法，处理Esc后返回True阻止默认行为：

Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
    If keyData = Keys.Escape Then
        If count = 1 Then
            count += 1
            Label1.Text = "You are pressing key escape once"
            ComboBox1.ResetText()
            TextBox1.Clear()
        ElseIf count = 2 Then
            Label1.Text = "You are pressing key escape twice"
        End If
        Return True ' 阻止后续默认处理，一次按键即可生效
    End If
    Return MyBase.ProcessCmdKey(msg, keyData)
End Function

同时需移除ComboBox1_KeyDown中对Esc的处理，避免重复触发。

方案3：优化GetItemData逻辑 #

若必须通过GetItemData处理Esc，可添加参数区分场景，优化无效值处理：

Private Sub GetItemData(ByVal iditem As String, Optional isEscape As Boolean = False)
    If isEscape Then
        ComboBox1.ResetText()
        TextBox1.Clear()
        Return
    End If
    Dim item = COLORCODESERVICE.GetByColorcode2(iditem)
    If item IsNot Nothing Then
        If String.Equals(iditem, item.Colorcode, StringComparison.CurrentCultureIgnoreCase) Then
            ComboBox1.Text = item.Colorcode
        End If
        TextBox1.Text = item.Colorname
    Else
        MsgBox("Not Found Colorcode...")
        ComboBox1.ResetText()
        TextBox1.Clear()
        Return
    End If
End Sub

' 修改KeyDown事件
Private Sub ComboBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles ComboBox1.KeyDown
    If e.KeyCode = Keys.Enter Then
        GetItemData(ComboBox1.Text)
    ElseIf e.KeyCode = Keys.Escape Then
        GetItemData("", True)
        e.Handled = True
    ElseIf e.KeyCode = Keys.Back Then
        ComboBox1.ResetText()
        TextBox1.Clear()
    End If
End Sub

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