Сообщение LB_DELETESTRING

Const LB_DELETESTRING = &H182

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

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

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

Параметры

wParam
Отсчитываемый от 0 индекс удаляемой строки
lParam
Не используется - установите равным 0

Константы

Const LB_ERR = -1

Пример

смотри также пример listbox.zip

' Удалим первую строку из списка

Dim lRet As Long

lRet = SendMessage(List1.hWnd, LB_DELETESTRING, ByVal 0, ByVal 0)
If lRet = LB_ERR Then
  Debug.Print "Не могу удалить первую строку списка List1"
 Else
  Debug.Print "Осталось"; lRet; "элементов в списке"
End If

Смотри также

LB_ADDSTRING, LB_INSERTSTRING, LB_RESETCONTENT

Категория

Списки