Сообщение CB_ADDSTRING

Const CB_ADDSTRING = &H143

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

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

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

Параметры

wParam
Не используется - установите равным 0
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_ADDSTRING, ByVal CLng(0), ByVal "Русский_Проект")
End Sub

Смотри также

CB_DELETESTRING, CB_INSERTSTRING, CB_RESETCONTENT

Категория

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