循环遍历树视图节点以删除某些节点

Question

您好，提前感谢您的帮助。

我有一个从 HDD 文件夹集合填充的树视图。它的结构类似于以下（但结构是动态的）：

My Disk:
|
|--folder1(tag:folder)
|  |--subfolder1(tag:folder)
|--folder2(tag:folder)
|--folder3(tag:folder)
|--folder4(tag:folder)
   |file1(tag:file)

我想从树中删除所有不包含带有“文件”标签的节点的节点（基本上是空文件夹）。我希望生成的树结构如下所示：

My Disk:
|--folder4(tag:folder)
   |file1(tag:file)

我想出的最好的如下：

Private Sub deleteNode(byval nc as TreeNodeCollection)
 For Each tn As TreeNode In nc
  'delete node if it applies
        If tn.Tag = "folder" Then
            If tn.Nodes.Count = 0 Then
                 nc.Remove(tn)
            End If
        End If

        If tn.Nodes.Count > 0 Then
             deleteNode(tn.Nodes)
        End If
    Next
End Sub

我将 sub 调用如下：

deleteNode(treeview1.Nodes(0).Nodes)

但是，上述操作无法正常工作。它只删除一些节点，而不是所有目标节点。你能帮我修好我的潜艇吗？

非常感谢

Answer 1

据我所知，您无法编辑正在枚举的集合，因此它删除了 一些 节点也令人印象深刻。

你可以wanna try another approach:

Private Sub RemoveEmptyFolderNodes(ByVal nc as TreeNodeCollection)
    For i As Integer = nc.Count - 1 To 0 Step -1
        If nc(i).Nodes.Count > 0 Then
            RemoveEmptyFolderNodes(nc(i).Nodes)
        End If
        If nc(i).Nodes.Count = 0 AndAlso nc(i).Tag.ToString() = "folder" Then
            nc.RemoveAt(i)
        End If                
    Next
End Sub

这是未经测试的。

Answer 2

树视图最初是由我们的程序填充的？

如果是这样，请不要添加带有该标签的节点。

如果不是，for each 循环是个问题，因为每次调用删除节点函数时都会更改树节点集合。

我已经通过创建一个集合来存储要删除的密钥来解决这个问题，并且在每个循环之后，您可以安全地删除您想要的节点。 GL.

例如：

Dim nNd As Node
Dim toDel As New Collection

For Each nNd In tvSS.Nodes
    If nNd.tag="whatuwant" Then toDel.Add (nNd.Key)
Next
Do While toDel.Count > 0
    tvSS.Nodes.Remove (toDel.Item(1))
    toDel.Remove (1)
Loop
Set toDel = Nothing