Ejemplos usando el Api de windows para Visual basic

106 - Cambiar BackColor de un TreeView

Volver al Listado Api - Anterior - Siguiente

El siguiente ejemplo aportado por Leandro Ascierto permite cambiar el color de fondo en un control TreeView mediante la función Api SendMessage

En el ejemplo hay una función que se le envía el control TreeView como parámetro y el color o mejor dicho el BackColor a establecerle

La función Api que establece el color de fondo al TreeView es SendMessage enviandole el mensaje TVM_SETBKCOLOR como parámetro

Un ejemplo :

vista del ejemplo para cambiar el color de fondo de un control TreeView con el Api

Código fuente en el Formulario

'Nota importante: si se cambia el Backcolor de los nodos _ hay que volver a llamar a la función SendMessage '######################################################### Private Sub Form_Load() Dim nodX As Node 'Elementos de ejemplo pra el TreeView With TreeView1 Set nodX = .Nodes.Add(, , "R", "Root") Set nodX = .Nodes.Add("R", tvwChild, "C1", "Child 1") Set nodX = .Nodes.Add("R", tvwChild, "C2", "Child 2") Set nodX = .Nodes.Add("R", tvwChild, "C3", "Child 3") Set nodX = .Nodes.Add("R", tvwChild, "C4", "Child 4") .Style = 7 .BorderStyle = vbFixedSingle nodX.EnsureVisible End With Dim i As Integer 'Cambia el color de los nodos For i = 1 To TreeView1.Nodes.Count TreeView1.Nodes(i).BackColor = &HFFC0C0 TreeView1.Nodes(i).ForeColor = vbRed TreeView1.Font.Bold = True Next ' Se le envia el control TReeView y el color Call Cambiar_Color_TreeView(TreeView1, &HFFC0C0) End Sub

Código en un módulo:

'Api SendMessage 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 'Mensajes para SendMessage Private Const TVM_SETBKCOLOR = 4381& 'Establece el BackGround Private Const TVM_GETBKCOLOR = 4383& 'recupera Function Cambiar_Color_TreeView(TreeView As TreeView, Color As Long) As Boolean Cambiar_Color_TreeView = SendMessage(TreeView.hWnd, TVM_SETBKCOLOR, 0, ByVal Color) End Function

Enlaces relacionados

Cambiar color de fondo a un Slider

Buscar en Recursos vb