标题：请教目录树选中

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