Сообщение LVM_GETTEXTBKCOLOR

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

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

wParam

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

lParam

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

Пример

' Получим цвет фона для текста под значками на Рабочем столе
Dim lProgman         As Long
Dim lSHELLDLLDefView As Long
Dim lSysListView32   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
' Получаем цвет фона текста под значками на красный
Dim retval As Long
retval = SendMessage((lSysListView32), LVM_GETTEXTBKCOLOR, 0, 0)
Print retval

Категория