15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


Как программно развернуть Combo Box

Добавьте combo box с именем cboCombo, и кнопку cmdDrop. Если Вам понадобится закрыть обратно выпадающий список, то просто вызовите API функцию SendMessage с CB_SHOWDROPDOWN и False вместо True.

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const CB_SHOWDROPDOWN = &H14F 'WM_USER + 14

Private Sub cmdDrop_Click()
    SendMessage cboDrop.hwnd, CB_SHOWDROPDOWN, True, 0
End Sub