以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何给不同层级的树节点设置颜色  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90185)

--  作者:包头123
--  发布时间:2016/9/7 11:33:00
--  如何给不同层级的树节点设置颜色
版主:
      如何给不同层级的树节点设置颜色?下述语句设置哪里有问题?

Dim Trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As  WinForm.TreeNode In trv.AllNodes
    If nd.Nodes.Count = 0 Then            ’0层级颜色
        nd.ForeColor = Color.Red
    End If
    If nd.Nodes.Count = 1 Then            ’1层级颜色       
        nd.ForeColor = Color.Blue
    End If
    If nd.Nodes.Count = 2 Then            ’2层级颜色        
        nd.ForeColor = Color.Blue
    End If
Next


--  作者:有点蓝
--  发布时间:2016/9/7 12:04:00
--  
Dim Trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As  WinForm.TreeNode In trv.AllNodes
    If nd.Level = 0 Then            \'0层级颜色
        nd.ForeColor = Color.Red
    End If
    If nd.Level = 1 Then            \'1层级颜色       
        nd.ForeColor = Color.Blue
    End If
    If nd.Level = 2 Then            \'2层级颜色        
        nd.ForeColor = Color.Blue
    End If
Next

--  作者:包头123
--  发布时间:2016/9/7 14:01:00
--  
谢谢了。