以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教目录树选中  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=11575)
--  作者：baoxyang
--  发布时间：2011/8/3 14:25:00
--  请教目录树选中
如何判断目录树中每一节点子节点全部选中时，父节点也为选中状态。
--  作者：狐狸爸爸
--  发布时间：2011/8/3 14:35:00
--  

if nd.Level = 0 then

  return

end if

dim bln as Boolean = True

for each nd as WinForm.TreeNode in e.Node.ParentNode.Nodes

     if nd.checked = false then

        bln= false

        exit for

     end if

next

if bln then

    e.node.Parentnode.Checked = true

end if
--  作者：baoxyang
--  发布时间：2011/8/3 14:48:00
--  
谢谢了！