VB6 實現菜單欄下拉列表嵌入 ComboBox 效果的兩種方案

需求分析

在 VB6 標準菜單欄的下拉選單中嵌入可編輯/可選的 ComboBox 控件，以實現類似「字體大小」、「縮放比例」等即時輸入選擇交互。

方案一：ToolBar + DropDown 按鈕 + 彈出菜單模擬（推薦）

1. 放置 Microsoft Windows Common Controls 6.0 的 ToolBar 控件；
2. 添加按鈕，設置 Style = tbrButtonDropDown；
3. 在按鈕的 ButtonClick 事件中彈出自定義菜單（PopupMenu），菜單項可包含文本框、ComboBox 等 ActiveX 控件容器；
4. 利用 SetParent API 將 ComboBox 父窗口設置為菜單彈出窗口句柄，實現視覺融合。

方案二：Owner-Draw 菜單項手繪 ComboBox

使用 Menu Editor 創建擁有 OwnerDraw = True 的菜單項，在 MeasureItem/DrawItem 事件中手繪下拉框外觀，並在 Click 事件中動態創建一個無邊框 Form 模擬下拉列表。此法靈活度高但開發工作量大，需自行處理鍵盤導航、焦點切換、滾動條等細節。

關鍵 API 參考

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

最佳實踐建議

• 優先採用方案一，穩定性好、維護成本低；
• 若需高度定制化外觀，考慮遷移至 VB.NET (WinForms/WPF) 利用 ToolStripControlHost 原生支持；
• 注意 VB6 程式在高 DPI 環境下的縮放問題，建議在 Manifest 中聲明 DPI 感知。