VB.NET中ComboBox双击无法全选文本问题求助

当ComboBox的DropDownStyle设为DropDown时，直接绑定MouseDoubleClick事件调用SelectAll()可能失效，原因是ComboBox内部的文本编辑控件会优先处理双击事件（默认行为是选中单个单词），导致我们的全选操作被覆盖，或者事件触发时焦点未正确落在编辑区域。

以下是几种可行的解决方案：

方案1：延迟执行全选操作 #

利用BeginInvoke将SelectAll()的执行推迟到默认双击处理完成之后：

Private Sub MainSearchBox_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles MainSearchBox.MouseDoubleClick
    MainSearchBox.BeginInvoke(Sub()
                                  MainSearchBox.SelectAll()
                              End Sub)
End Sub

方案2：获取内部TextBox控件绑定双击事件 #

ComboBox的编辑区域是一个隐藏的TextBox子控件，直接给这个控件绑定双击事件：

Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 获取内部的TextBox控件
    Dim innerTextBox As TextBox = DirectCast(MainSearchBox.Controls(0), TextBox)
    AddHandler innerTextBox.DoubleClick, AddressOf InnerTextBox_DoubleClick
End Sub

Private Sub InnerTextBox_DoubleClick(sender As Object, e As EventArgs)
    MainSearchBox.SelectAll()
End Sub

方案3：自定义ComboBox重写WndProc #

通过继承ComboBox并重写窗口过程，直接处理双击消息：

Public Class SelectAllComboBox
    Inherits ComboBox

    Protected Overrides Sub WndProc(ByRef m As Message)
        MyBase.WndProc(m)
        ' 处理左键双击消息（WM_LBUTTONDBLCLK）
        If m.Msg = &H203 Then
            Me.SelectAll()
        End If
    End Sub
End Class

使用时，将窗体上的ComboBox替换为这个自定义的SelectAllComboBox即可。

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