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

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


Как показать List Box содержащий Combo Box при помощи API функции SendMessage

Чтобы показать List Box с выпадающими списками, необходимо отправить оконное сообщение CB_SHOWDROPDOWN в combo boxl. Например:

 * Создаём новый стандартный проект EXE
 * Добавляем выпадающий список (combo box) на Form1
 * Добавляем кнопку на Form1
 * Добавляем следующие строки кода в Form1: 
        Private Declare Function SendMessageLong _ 
            Lib “user32” _ 
            Alias “SendMessageA” ( _ 
                ByVal hwnd As Long, _ 
                ByVal wMsg As Long, _ 
                ByVal wParam As Long, _ 
                ByVal lParam As Long) As Long 
        Private Const CB_SHOWDROPDOWN As Long = &H14F 
        Public Sub ShowComboDropDown(Combo As ComboBox, Optional Show As Boolean = True) 
        Dim lReturn As Long 
            lReturn = SendMessageLong(Combo.hwnd, CB_SHOWDROPDOWN, CLng(Show), 0&) 
        End Sub 
        Private Sub Command1_Click() 
            ShowComboDropDown Combo1 
        End Sub