LB_GETTEXT

Сообщение LB_GETTEXT

Const LB_GETTEXT = &H189

Сообщение LB_GETTEXT возвращает текст элемента списка

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

В успешном случае сообщение возвращает длину строки, передаваемой в переменную lParam без завершающего нулевого символа. В случае ошибки возвращается LB_ERR

Параметры

wParam: Отсчитываемый от нуля индекс элемента списка
lParam: Строка для приёма текста элемента списка. Строка должна иметь достаточно места для приёма текста с завершающим нулевым символом

Пример

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

' Определяем текст выбранного элемента списка List1 

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

' Узнаем число элементов списка
count = SendMessage(List1.hWnd, LB_GETCOUNT, ByVal CLng(0), ByVal CLng(0))
' Создаем буфер для приема первой строки, включая завершающий нулевой символ
textlen = SendMessage(List1.hWnd, LB_GETTEXTLEN, ByVal 0, ByVal CLng(0)
itemtext = Space(textlen) & vbNullChar
textlen = SendMessage(List1.hWnd, LB_GETTEXT, ByVal 0, ByVal itemtext)
itemtext = Left(itemtext, textlen)
' Показываем текст
Debug.Print "1 элемент списка: "; itemtext

Смотри также

LB_GETTEXTLEN

Категория

Списки