- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 末级节点颜色凸显 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=32173)
-- 发布时间：2013/4/26 21:50:00
-- 末级节点颜色凸显
怎样能使窗体中目录树的末级节点文字能红色凸显
-- 发布时间：2013/4/26 22:28:00
--
Dim Trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode= trv.nodes(trv.nodes.Count-1)
nd.ForeColor = Color.Red
-- 发布时间：2013/4/27 6:20:00
--
以下是引用jianjingmaoyi在2013-4-26 22:28:00的发言：
Dim Trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode= trv.nodes(trv.nodes.Count-1)
nd.ForeColor = Color.Red
可能是我表述不清，你的代码的效果是
此主题相关图片如下：1.png
我想要的效果是
此主题相关图片如下：2.png
已通过以下代码解决：
Dim Trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Nodes.Count = 0 Then
nd.ForeColor = Color.Red
End If
Next
[此贴子已经被作者于2013-4-27 6:22:06编辑过]