VB6 美化 ComboBox 下拉框為工具欄彈出菜單風格並隱藏編輯框

需求

• 將 ComboBox 下拉列表樣式改為類似工具欄按鈕彈出菜單的扁平化風格；
• 隱藏 ComboBox 自帶的編輯框，避免用戶誤輸入。

推薦方案：ToolBar DropDown 按鈕 + PopupMenu

1. 放置 Microsoft Windows Common Controls 6.0 的 ToolBar 控件；
2. 添加按鈕，屬性設置：
   Style = tbrButtonDropDown
DropdownStyle = tbrDropDownMenu（彈出菜單模式）
3. 準備一個 Menu 編輯器定義的菜單（如 mnuComboPopup），項目可包含圖標、單選/複選框、分隔線；
4. 在 ToolBar 的 ButtonClick 事件中：
   

   Private Sub Toolbar1_ButtonClick(ByVal Button As Button)
       If Button.Key = "myComboBtn" Then
           PopupMenu mnuComboPopup, vbPopupMenuLeftAlign
       End If
   End Sub
   

5. 菜單項 Click 事件中寫入業務邏輯，並可通過 Button.Caption 或 Button.ToolTipText 反饋選中值。

隱藏編輯框的替代思路

若必須用原生 ComboBox：

• 設置 Style = 2 - Dropdown List（僅允許選擇，禁止編輯）；
• 若需完全隱藏文本區，可在 GotFocus 時將 Width 設置為僅顯示下拉箭頭寬度，失去焦點恢復——但體驗極差，強烈不推薦。

進階：ActiveBar 控件

第三方 ActiveBar (原 BCGControlBar VB 版) 原生支持在 ToolBar 上嵌入任意 ActiveX 控件（含真正的 ComboBox、DateTimePicker、ColorPicker），樣式完美模仿 Office 2003/2007 Ribbon，適合商業級項目。
下載地址：CSDN 下載

總結

「ToolBar DropDown 按鈕 + PopupMenu」是零成本、原生穩定、易維護的最佳實踐；追求極致 UI 一致性則投入 ActiveBar。