Сообщение TVM_SETBKCOLOR

Сообщение TVM_SETBKCOLOR устанавливает цвет фона в TreeView

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

Сообщение TVM_SETBKCOLOR возвращает предыдущий цвет элемента управления. Если возвращается -1, то элемент управления использует системный цвет

Параметры

wParam

Установите равным 0

lParam

Значение, содержащее код для нового цвета

Пример

' Установим для фона TreeView синий цвет
' Расположите на форме элемент TreeView
' (Project-Components-Microsoft Windows Common Controls 6.0)
Private Sub Form_Load()

Dim nodX As Node

Set nodX = TreeView1.Nodes.Add(, , "R", "Root")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4")
nodX.EnsureVisible
End Sub

Private Sub Command1_Click()

Dim lngStyle As Long

' Меняем цвет фона
Call SendMessage(TreeView1.hWnd, _
    TVM_SETBKCOLOR, _
    0, _
    ByVal RGB(0, 0, 255))

' Меняем стиль окна, чтобы изменения вступили в силу
lngStyle = GetWindowLong(TreeView1.hWnd, GWL_STYLE)
Call SetWindowLong(TreeView1.hWnd, _
    GWL_STYLE, _
    lngStyle - TVS_HASLINES)
Call SetWindowLong(TreeView1.hWnd, GWL_STYLE, lngStyle)
End Sub

Смотри также

Категория