主题：求助，目录节点选择控制方法

我有一个多层目录树，想实现控制用户，只能选择同一个根节点内的，任何节点。

如果选择了其它根节点，给一个提示。

 多选目录树？

 方法一：勾选以后，遍历所有节点，查找是否有其它选中的节点不在同一级节点；

 方法二：勾选第一次，为true的时候，用变量记录Level，再次勾选的时候，比较一下，就知道了。

看得见，而选不着，会让用户困扰。

应该按用户及其他条件筛选数据，再根据筛选后的数据生成目录树。

能看见，就能选，才人性化。

多谢几位指教...

根据需求才这样弄的。现在又碰到疑问了，

以下代码能检查到根节点选中的个数，n > 0 的时候，e.Cancel = True 没起到作用。不解是何原因。。。。。

Select Case e.Node.Level
    Case 0
        Dim n As Integer = 0
        For Each nd As WinForm.TreeNode In e.Sender.AllNodes
            If nd.Level = 0 And nd.Checked = True
                n  = n + 1
            End If
        Next
        If n > 0 Then
            e.Cancel = True
            'MessageBox.show("节点限制")
        End If

        case 1

        ..........

end select

 根节点不允许多选？

Select Case e.Node.Level
    Case 0
        If e.Node.Checked Then
            For Each nd As WinForm.TreeNode In e.Sender.nodes
                If nd.Checked = True
                    e.node.checked = False
                    msgbox("提示")
                    Exit For
                End If
            Next
        End If
    Case 1
       
End Select

是的复选目录树！

想实现只能选择，一个根节点，或者只能选择一个根节点中的子节点。

用了您贴的这段代码，也不行。实在折腾不出来，上例子求助来了。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:目录树选择.rar

 如下代码

If e.Node.Checked Then
    For Each nd As WinForm.TreeNode In e.Sender.AllNodes
        If nd.Checked = True AndAlso nd.FullPath <> e.Node.FullPath Then
            If nd.FullPath.Split("\")(0) <> e.Node.FullPath.Split("\")(0) Then
                e.node.checked = False
                msgbox("只能在同一根节点下")
                Exit For
            End If
        End If
    Next
End If

管用的来了：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:目录树只能选择一个根节点.rar