主题：[分享]目录树重新生成后，保持之前节点展开状态的代码

我之前做了很多目录树，发现只要删除，增加节点，或者重新生成节点后就会发生目录树恢复原始的收起状况，很不方便。闲来写了一段代码，感觉和之前天老师的目录树只展开一个节点代码有相似之处，特拿来分享，不知道有没人发过！

Dim sz As New List(Of Integer)
Dim trv As WinForm.TreeView = e.form.controls(TreeView1)
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.IsExpanded = True
        SZ.Add(nd.Index)
    End If
Next
   
'''变更目录树后，重生成的代码


For Each nd1 As WinForm.TreeNode In trv.AllNodes
   If sz.Contains(nd1.Index)
         nd1.Expand
   End If
Next

上面代码就能保证目录树节点变更后，整体展开状态不变，便于查看目录树变更状况。
不知道这代码还有没有更好的方法！


顺便再转享下天老师的目录树只展开一个节点的代码
If e.Node.Level = 0 Then
    For Each pg As WinForm.TreeNode In e.Sender.Nodes
        If pg.Name <> e.Node.Name Then
            pg.CollapseAll()
        End If
    Next
Else
    For Each pg As WinForm.TreeNode In e.Node.ParentNode.Nodes
        If pg.Name <> e.Node.Name Then
            pg.CollapseAll()
        End If
    Next  
End If