Как поменять цвет текста у узла в TreeView? - VB
Решение задачи: «Как поменять цвет текста у узла в TreeView?»
textual
Листинг программы
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 Private Const GWL_STYLE = -16& Private Const TVM_SETBKCOLOR = 4381& Private Const TVM_GETBKCOLOR = 4383& Private Const TVS_HASLINES = 2& Private Const TV_FIRST As Long = &H1100 Private Const TVM_GETTEXTCOLOR As Long = (TV_FIRST + 32) Private Const TVM_SETTEXTCOLOR As Long = (TV_FIRST + 30) Private Sub Form_Load() Dim mNode As Node Dim i As Integer List1.AddItem 'Node 1' List1.AddItem 'Node 2' List1.AddItem 'Node 3' Set mNode = TreeView1.Nodes.Add() mNode.Text = 'Primary Node' For i = 0 To List1.ListCount - 1 Set mNode = TreeView1.Nodes.Add(1, tvwChild) mNode.Text = List1.List(i) Next i ''Изменить фон Call SendMessage(TreeView1.hWnd, TVM_SETBKCOLOR, 0, ByVal RGB(255, 204, 0)) ''Изменить цвет Call SendMessage(TreeView1.hWnd, TVM_SETTEXTCOLOR, 0, ByVal RGB(0, 127, 0)) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д