Сообщение CB_DELETESTRING

Пошлите сообщение CB_DELETESTRING для удаления одного из элементов списка комбинированного окна

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

В успешном случае сообщение возвращает число элементов списка, оставшихся в комбинированном окне. В случае ошибки возвращается CB_ERR

Параметры

wParam

Отсчитываемый от нуля индекс удаляемой строки

lParam

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

Константы

Const CB_ERR = -1

Пример

' Удаляем второй элемент списка из комбинированного окна.
' Разместите на форме Combo1 и кнопку Command1 для примера
Private Sub Command1_Click()
 Dim retval As Long ' возвращаемое значение
' Удаляем второй элемент списка
 retval = SendMessage(Combo1.hWnd, CB_DELETESTRING, ByVal CLng(1), ByVal CLng(0))
  If retval = CB_ERR Then
     Debug.Print "Невозможно удалить второй элемент списка"
	Else
     Debug.Print "Осталось"; result; "элементов в ComboBox"
 End If
End Sub

Смотри также

Категория