TV_FIRST = &H1100
Const TVM_GETBKCOLOR = (TV_FIRST + 31)
Сообщение TVM_GETBKCOLOR получает цвет фона в TreeView
Сообщение TVM_GETBKCOLOR возвращает цвет фона TreeView. Если возвращается -1, то элемент управления использует системный цвет
' Получим цвет фона TreeView ' Расположите на форме элемент TreeView ' (Project-Components-Microsoft Windows Common Controls 5.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") nodX.EnsureVisible End Sub Private Sub Command1_Click() Dim lngStyle As Long ' Получаем цвет фона Dim lRet As Long lRet = SendMessage(TreeView1.hWnd, TVM_GETBKCOLOR, _ 0, 0) MsgBox lRet End Sub