Сообщение LVM_GETTEXTCOLOR

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

В успешном случае возвращается цвет текста

Параметры

wParam

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

lParam

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

Пример

' Получим цвет текста под значками на Рабочем столе
Dim lProgman As Long
Dim lSHELLDLLDefView As Long
Dim lSysListView32   As Long
Dim retval as Long

' Получим дескриптор Рабочего стола

lProgman = FindWindow("Progman", "Program Manager")
If lProgman = 0 Then Exit Sub

' Сначала получим дочернее окно с именем класса "SHELLDLL_DefView"
lSHELLDLLDefView = FindWindowEx(lProgman, 0&, "SHELLDLL_DefView", vbNullString)
If lSHELLDLLDefView = 0 Then Exit Sub

' Теперь получим его дочернее окно (т.е. окно Рабочего стола)
lSysListView32 = FindWindowEx(lSHELLDLLDefView, 0&, "SysListView32", vbNullString)
If lSysListView32 = 0 Then Exit Sub
' Получаем цвет текста под значками
retval = SendMessage (lSysListView32, LVM_GETTEXTCOLOR, 0&, 0&)

Категория