Как поменять цвет текста у узла в 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 3.889 из 5
Похожие ответы