Сообщение CB_GETEXTENDEDUI

Приложение посылает сообщение CB_GETEXTENDEDUI комбинированному окну (ComboBox) для определения, какой пользовательский интерфейс имеет комбинированное окно - стандартный или расширенный. Для стандартного интерфейса при нажатии клавиши F4 открывается или закрывается ниспадающий список и клавишей ↓ выбирается элемент списка. При расширенном стиле клавиша F4 не работает и нажатие клавиши ↓ открывает ниспадающий список

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

Если комбинированное окно имеет расширенный пользовательский интерфейс, то возвращается True, если стандартный - False

Параметры

wParam

Не используется - установите равным 0

lParam

Не используется - установите равным 0

Пример

' Используем расширенный и стандартный интерфес комбинированного окна
' Установите на форме ComboBox и ChekBox

Public Property Let ComboExtendedUI(ByRef cboThis As ComboBox, ByVal bState As Boolean)
  SendMessage cboThis.hwnd, CB_SETEXTENDEDUI, Abs(bState), 0
End Property

Public Property Get ComboExtendedUI(ByRef cboThis As ComboBox) As Boolean
  ComboExtendedUI = (SendMessage(cboThis.hwnd, CB_GETEXTENDEDUI, 0, 0) <> 0)
End Property

Private Sub Check1_Click()
 ComboExtendedUI(Combo1) = (Check1.Value = Checked)
End Sub

Private Sub Form_Load()
 Dim i As Long
 For i = 1 To 20
  Combo1.AddItem "Пункт " & i
 Next i
End Sub

Смотри также

Категория