使用和删除集合VBA中的所有元素

Question

我有一个我需要循环的集合。我需要将每个元素用于任务，然后将其删除。 最重要的是，这是我的代码

Public Sub unselectAllNodes()
  Dim tv As MSComctlLib.TreeView 'reference to treeview
  Set tv = Forms("Main").ESDTreeView.Object
  Dim i As Long
  For i = 0 To nodesSelected.Count
     tv.Nodes(nodesSelected.Item(0)).BackColor = vbWhite
     tv.Nodes(nodesSelected.Item(0)).ForeColor = vbBlack
     nodesSelected.Remove 0
  Next i
End Sub

当我尝试运行此代码时，我会遇到一些意外的情况。

1. 当我尝试执行nodesSelected.Item（0）时，我收到“无效的过程调用或参数”错误

   • 我也尝试过nodesSelected（0）......我不确定哪种语法是正确的。还不确定这是否是来自我列表中第二点的错误。

2. 当我的收藏品为空时，代码仍会进入for循环