Сообщение CB_INSERTSTRING

Пошлите сообщение CB_INSERTSTRING, чтобы вставить новый элемент списка в комбинированное окно в позицию, заданную параметрами, независимо от состояния сортировки

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

В успешном случае сообщение возвращает отсчитываемый от нуля индекс позиции добавленного элемента списка в комбинированном окне. В случае отсутствия места для хранения новой строки возвращается CB_ERRSPACE. В случае других ошибок возвращается CB_ERR

Параметры

wParam

Отсчитываемый от нуля индекс позиции для вставки нового элемента списка. Если равен -1, то элемент списка добавляется в конец списка

lParam

Строчка, добавляемая в комбинированное окно

Константы

Const CB_ERR = -1
Const CB_ERRSPACE = -2

Пример

' Добавляем новый элемент списка в комбинированное окно.
' Разместите на форме ComboBox и кнопку Command1 для примера
Private Sub Command1_Click()
 Dim retval As Long  ' возвращаемое значение
' Добавляем новую строчку в третью позицию списка Combo1
retval = SendMessage(Combo1.hWnd, CB_INSERTSTRING, ByVal CLng(2), ByVal "Русский_Проект")
' Добавим строчку в конец списка
retval = SendMessage(Combo1.hWnd, CB_INSERTSTRING, ByVal CLng(-1), ByVal "Конец списка")
End Sub

Смотри также

Категория