关于TreeView的问题

Question

Private Sub Command1_Click()
   Dim nod As Node, oTag() As String
   Set nod = TreeView1.SelectedItem.Child
   ReDim oTag(TreeView1.SelectedItem.Children)
   Debug.Print
   For i = 1 To TreeView1.SelectedItem.Children '在这里循环赋值
       oTag(i - 1) = nod.Tag
       Debug.Print oTag(i - 1)
       Set nod = nod.Next
   Next
End SubPrivate Sub Form_Load()
Dim sw As String
With TreeView1.Nodes
   For i = 1 To 6
       sw = "Layer1-" & i
       .Add , , sw, sw
       TreeView1.Nodes(sw).Tag = "tag中的值:" & sw
       For j = 1 To 6
           sw = "Layer2-" & i & "-" & j
           .Add "Layer1-" & i, tvwChild, sw, sw
           TreeView1.Nodes(sw).Tag = "tag中的值:" & sw
           For k = 1 To 6
               sw = "Layer3-" & i & "-" & j & "-" & k
               .Add "Layer2-" & i & "-" & j, tvwChild, sw, sw
               TreeView1.Nodes(sw).Tag = "tag中的值:" & sw
           Next
       Next
   Next
   .Add "Layer2-1-1", tvwChild, "sw", "sw"
   TreeView1.Nodes("sw").Tag = "tag中的值:sw"
End With
End Sub

Answer 1

这样看起来不复杂了吧？
Private Sub Command1_Click()
   Dim nod As Node, oTag() As String
   Set nod = TreeView1.SelectedItem.Child
   ReDim oTag(TreeView1.SelectedItem.Children)
   For i = 1 To ubound(oTag) '在这里循环赋值
       oTag(i - 1) = nod.Tag: Set nod = nod.Next
   Next
End Sub