TreeView 分组和层级划分??

Question

Dim nodX As Node   '声明对象变量。
Dim I As Integer   '声明计数器变量。
With TreeView1
.LineStyle = tvwRootLines
For I = 1 To 4
   Set nodX = .Nodes.Add(, , , "Node " & CStr(I))--分组关键语句
   
   Set nodX = .Nodes.Add(I, , , " 2211 " & I)
   
Next I
End With
分组关键语句Set nodX = .Nodes.Add(, , , "Node " & CStr(I))
分组第一层级关键语句
   Set nodX = .Nodes.Add(I, , , " 2211 " & I)
问各位大侠的问题是:
分组第2(或3,4,5)层级关键语句如何写???Set nodX = .Nodes.Add(I, , , " 2211 " & I)

Answer 1

用 Key 区分:请看我以下示例:
Option ExplicitDim nodX As Node  '声明对象变量。
Dim I As Integer  '声明计数器变量。Private Sub Form_Load()
  TreeView1.LineStyle = tvwRootLines
  '增加示例数据
  
  For I = 1 To 5
    Set nodX = TreeView1.Nodes.Add(, , "A" & I, "Node" & I) '第一层的KEY为A开始
  Next
  
  For I = 1 To 5
     Set nodX = TreeView1.Nodes.Add("A" & I, tvwChild, "B" & I, "Node" & I)'第二层的KEY为B开始
  Next
  
  For I = 1 To 5
     Set nodX = TreeView1.Nodes.Add("B" & I, tvwChild, "C" & I, "Node" & I)'第三层的KEY为C开始
  Next
  
  For I = 1 To 5
     Set nodX = TreeView1.Nodes.Add("C" & I, tvwChild, "D" & I, "Node" & I)'第四层的KEY为D开始
  Next
  
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
   Dim tCen As Long
   tCen = Asc(Mid(Node.Key, 1, 1)) - Asc("A") + 1
   MsgBox "你单击的节点的层数是:" & tCen
End Sub