Сообщение CB_SETITEMHEIGHT

Const CB_SETITEMHEIGHT = &H153

Приложение посылает сообщение CB_SETITEMHEIGHT для установки высоты каждой строки или выбранного пункта в комбинированном окне (ComboBox)

Возвращаемое значение

Если индекс или высота указаны неверно, то возвращается CB_ERR

Параметры

wParam

Задает компонент комбинированного окна для получения высоты. Если равен –1, то устанавливаем высоту выбранного поля. Если равен 0, то устанавливаем высоту пунктов списка. В этом случае параметр wParam является индексом строки (отсчет от 0)

lParam

Задает высоту в пикселах компонента комбинированного окна, заданного параметром wParam

Пример

' Устанавливаем высоту в пикселах у элементов ListBox или ComboBox

Sub SetListItemHeight(ctrl As Control, ByVal newHeight As Long)
    Dim uMsg As Long
    If TypeOf ctrl Is ListBox Then
        uMsg = LB_SETITEMHEIGHT
    ElseIf TypeOf ctrl Is ComboBox Then
        uMsg = CB_SETITEMHEIGHT
    Else
        Exit Sub
    End If
    ' (only the low-order word of lParam can be used.)
    SendMessage ctrl.hwnd, uMsg, 0, ByVal CLng(newHeight And &HFFFF&)
    ' It is necessary to manually refresh the control.
    ctrl.Refresh
End Sub

Private Sub Form_Load()
    Call SetListItemHeight(List1, 26)
    Call SetListItemHeight(Combo1, 22)
End Sub

Смотри также

CB_GETITEMHEIGHT

Категория

Комбинированное окно