Сообщение LVM_GETTEXTBKCOLOR

Const LVM_FIRST = &H1000
Const LVM_GETTEXTBKCOLOR = (LVM_FIRST + 37)

Сообщение LVM_GETTEXTBKCOLOR возвращает цвет фона для текста в ListView

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

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


Параметры
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

Категория

ListView (Табличный список)