Возможно ли увеличить высоту выпадающего окна ImageCombo?

[brigval]

Возможно ли увеличить высоту выпадающего окна ImageCombo более чем на девять записей?

[alibek]

Да, а зачем?
Какое-то сообщение с SETHEIGHT, помоему.

Хотя нет, это относится к обычному ComboBox.

[Viper]

CB_SETITEMHEIGHT вроде как

[brigval]

Да, а зачем?
Какое-то сообщение с SETHEIGHT, помоему.

Для каждого случая выпадает окошко с разнами иконками. Красиво.
Для ComboBox нашел в Интернете увеличивется и ширина и высота. А у ImagrCombo только ширина , а высота не хочет

[brigval]

CB_SETITEMHEIGHT вроде как

Не работает.

Вот этот код отлично работает для ComboBox и не хочет для ImageCombo

Код: Выделить всё

Public Sub ReSizeCombo(frm As Form, cbo As ComboBox)  ' Процедура меняет размер  выпадающей  части  комбобокса
   Dim cboLeft As Long
   Dim cboTop As Long
   Dim cboWidth As Long
   Dim cboHeight As Long
   Dim oldScaleMode As Long
   ' Меняем Scale Mode формы на пиксели.
   oldScaleMode = frm.ScaleMode
   frm.ScaleMode = vbPixels
   ' Сохраняем размеры  комбобокса
   cboLeft = cbo.Left
   cboTop = cbo.Top
   cboWidth = cbo.Width
   ' Задаем новую высоту  комбобокса , в соотвествии с рабочей областью формы
   cboHeight = frm.ScaleHeight - cbo.Top '- 5
   frm.ScaleMode = oldScaleMode
   'и собственно ресайзаем
   MoveWindow cbo.hwnd, cboLeft, cboTop, cboWidth, cboHeight, 1
End Sub

Вот этот код изменяет ширину и ImageCombo и ComboBox

Код: Выделить всё

SendMessageLong imcNaim.hwnd, CB_SETDROPPEDWIDTH, Xpix, 0


Увеличить высоту окна ImageCombo не получается...

[GSerg]

Долго думал, влепить предупреждение за не очень качественный вопрос в разделе для профессионалов или нет. Решил просто перенести. Но не надо так делать в следующий раз.

Этот код работает, если список уже отображён или существует по крайней мере. Установка размеров дочернему ComboBox не срабатывает потому, что ImageCombo помнит размеры сам и применяет их поверх.

Однако выпадающий список является всё тем же ComboLBox и к нему применимы все те же правила.

Код: Выделить всё

    Dim r As RECT, i As COMBOBOXINFO
   
    i.cbSize = Len(i)
    SendMessage FindWindowEx(ImageCombo1.hwnd, 0, "ComboBox", vbNullString), CB_GETCOMBOBOXINFO, 0, i
   
    GetWindowRect i.hwndList, r
    MoveWindow i.hwndList, r.Left, r.Top, r.Right - r.Left, 400, 1

Всё это можно было легко установить самому с помощью Spy++ и немного кода. Что ещё раз показывает, что появление вопроса в разделе для профессионалов было не совсем соответствующим.

[brigval]

Решил просто перенести.

Спасибо, GSerg!


Но я так пока не понял как воспользоваться советом.
Сделал процедуру

Код: Выделить всё

Public Sub ReSizeImCombo(ImageCombo1 As ImageCombo)
    Dim r As RECT, i As COMBOBOXINFO
   
    i.cbSize = Len(i)
    SendMessage FindWindowEx(ImageCombo1.hwnd, 0, "ComboBox", vbNullString), CB_GETCOMBOBOXINFO, 0, i
   
    GetWindowRect i.hwndList, r
    MoveWindow i.hwndList, r.Left, r.Top, r.Right - r.Left, 1200, 1
End Sub

Помещал ее и в загрузку формы и в imcNaim_Dropdown. Результат нулевой. Что надо сделать, чтоб выпадающее окно увеличилось?

[GSerg]

Этот код работает, если список уже отображён

А событие дропдауна срабатывает до отображения списка, и потом ImageCombo его перемещает.

Поэтому надо сабклассить ImageCombo на предмет CBN_DROPDOWN или аналогично.

[brigval]

А если по событию _Dropdown запустить таймер, котоый через долю секунды запустит процедуру и отключится? Прокатит?

[GSerg]

Прокатит.
Но это криво.

[brigval]

Прокатит.
Но это криво.

По таймеру пока не получается. Все отрабатывается, но i.hwndList=0

[GSerg]

У меня не ноль и работает. По таймеру.
Но это всё равно криво.

[brigval]

Все заработало, GSerg! Не правильно значение константы записал.
Огромное спасибо.