Postada em 04/03/2009 18:27 hs
Ricardo veja se isso te ajuda
Código para alterar a propriedade Forecolor do TreeView...
Option Explicit
Public nodX As Node
Private Sub Form_Load()
Set nodX = TreeView1.Nodes.Add(, , "RP", "Raiz")
Set nodX = TreeView1.Nodes.Add("RP", tvwChild, "C1", "Item 01")
Set nodX = TreeView1.Nodes.Add("C1", tvwChild, "C2", "Item 02")
Set nodX = TreeView1.Nodes.Add("C2", tvwChild, "C3", "Item 03")
Set nodX = TreeView1.Nodes.Add("C2", tvwChild, "C4", "Item 04")
TreeView1.Style = tvwTreelinesPlusMinusText
TreeView1.LineStyle = tvwRootLines
' xxxxx Alterando o ForeColor xxxxxxxxxxxxx
For Each nodX In TreeView1.Nodes
nodX.ForeColor = vbBlue ' a cor desejada
nodX.Bold = True ' letra em negrito, ou qquer outra propriedade a ser alterada
Next nodX
' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
End Sub
Abraço e que DEUS te abençõe, espero poder ter te ajudado 
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
|
