Сообщение LB_GETCOUNT

Const LB_GETCOUNT = &H18B

Пошлите сообщение LB_GETCOUNT для определения числа элементов списка (индексация элементов начинается с 0). Аналогично свойству ListCount

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

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

Параметры

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

Пример

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

' Узнаем число элементов списка

Dim count As Long  ' число элементов списка

' Подсчитываем число элементов списка
count = SendMessage(List1.hWnd, LB_GETCOUNT, ByVal 0, ByVal 0)
Debug.Print "Список содержит "; count; "элементов"

Категория

Списки