Используйте функцию API в VB для изменения цвета фона древовидного представления.

Используйте VB для работы с TreeView и API.

Private Declare Function SendMessage Lib User32 Alias SendMessageA (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

Частная функция объявления GetWindowLong Lib User32 Псевдоним GetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Частная функция объявления SetWindowLong Lib User32 Псевдоним SetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Частная константа GWL_STYLE = -16&

Частная константа TVM_SETBKCOLOR = 4381&

Частная константа TVM_GETBKCOLOR = 4383&

Частная константа TVS_HASLINES = 2&

Dim frmlastForm как форма

Частная подформа_Load()

Уменьшить nodX как узел

Установите nodX = TreeView1.Nodes.Add(, , R, Root)

Установите nodX = TreeView1.Nodes.Add(R, tvwChild, C1, Child 1)

Установите nodX = TreeView1.Nodes.Add(R, tvwChild, C2, Child 2)

Установите nodX = TreeView1.Nodes.Add(R, tvwChild, C3, Child 3)

Установите nodX = TreeView1.Nodes.Add(R, tvwChild, C4, Child 4)

nodX.EnsureVisible

TreeView1.style = tvwTreelinesText ' Стиль 4.

TreeView1.BorderStyle = vbFixedSingle

Конец субтитра

Частная подкоманда 1_Click()

Dim lngStyle как можно дольше

Вызов SendMessage(TreeView1.hWnd, TVM_SETBKCOLOR, 0, ByVal RGB(255, 0, 0))

'改变背景到红色

lngStyle = GetWindowLong(TreeView1.hWnd, GWL_STYLE)

Вызов SetWindowLong(TreeView1.hWnd, GWL_STYLE, lngStyle - TVS_HASLINES)

Вызов SetWindowLong(TreeView1.hWnd, GWL_STYLE, lngStyle)

Конец субтитра

Опция явная

Частная функция объявления SendMessage Lib User32 Псевдоним SendMessageA (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

Частная функция объявления GetWindowLong Lib User32 Псевдоним GetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Частная функция объявления SetWindowLong Lib User32 Псевдоним SetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Частная константа GWL_STYLE = -16&

Частная константа TVM_SETBKCOLOR = 4381&

Частная константа TVM_GETBKCOLOR = 4383&

Частная константа TVS_HASLINES = 2&

Частная подформа_Load()

Тусклый узел как узел

Тусклый я как целое число

Тусклый стиль до тех пор, пока

Вызов SendMessage(TreeView1.hWnd, TVM_SETBKCOLOR, 0, ByVal RGB(255, 0, 0))

lStyle = GetWindowLong(TreeView1.hWnd, GWL_STYLE)

Вызов SetWindowLong(TreeView1.hWnd, GWL_STYLE, lStyle - TVS_HASLINES)

Вызов SetWindowLong(TreeView1.hWnd, GWL_STYLE, lStyle)

TreeView1.Style = tvwTreelinesPlusMinusPictureText

TreeView1.BorderStyle = ccFixedSingle

С TreeView1.Nodes

Установить nodex = .Add(, , R, Root)

nodex.BackColor = RGB(255, 0, 0)

Для я = от 1 до 10

Set nodex = .Add(R, tvwChild, C & i, Child & i)

nodex.BackColor = RGB(255, 0, 0)

nodex.EnsureVisible

Следующий

Конец с

Конец субтитра