主题：目录树勾选

For Each nd As WinForm.TreeNode In e.node.AllNodes  '同步子节点选中状态
    If nd.FullPath.StartsWith(e.node.FullPath) Then
        nd.Checked = e.node.Checked
    End If
Next
If e.node.Checked = False Then '如果本次操作为清除节点选中状态
    Dim pd As WinForm.TreeNode = e.node.ParentNode '获取父节点
    Do While pd IsNot Nothing
        pd.Checked = False '清除父节点选中状态
        pd  = pd.ParentNode '继续获取上一层级的父节点
    Loop
End If

有什么解决方案吗？还是只能这样？