主题：如何在两棵相同的树上定位选中的节点

请教老师

有两棵相同的目录树，在不同的窗口上，如何用其中一棵树上获得的节点的Fullpath，将所选节点还原在另一棵树上

甜老师，能不能给个简单例子？

多谢

没做过，但有个建议可以试试

点击第一棵树时，向上遍历每个节点的 Index 组成字符串变量 传递

第二棵树 接到后，分割变量，依次展开  Nodes(Index).Expand()

前提是两棵树完全一样。

甜老师，伟大的创意

如果真的是两棵一模一样的树，那就好办了，假如改变目录树1的某节点复选框，目录树2跟着同步：

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim nd As WinForm.TreeNode

Dim s As String = e.node.FullPath
Dim Values() As String
Values = s.split("\")
For Index As Integer = 0 To Values.Length - 1
    If Index = 0
        nd = tr.Nodes(Values(Index))
    Else
        nd = nd.Nodes(Values(Index))
    End If
Next
nd.Checked = e.Node.Checked '这就是您要的节点

窗口1中的目录树NodeMouseClick

If Forms("窗口2").Opened = False Then
    Forms("窗口2").Open()
End If
Dim tr As WinForm.TreeView = Forms("窗口2").Controls("TreeView1")
Dim nd As WinForm.TreeNode
For Each nd In tr.AllNodes
    If nd.DataRow("_Identify") = e.Node.DataRow("_Identify") AndAlso nd.Name = e.Node.Name AndAlso nd.Index = e.Node.Index Then
        tr.CollapseAll()
        nd.EnsureVisible()
        Exit For
    End If
Next