关于treeview的问题？

Question

1.如何如道一个节点是第几层？
2.如何展开节点，不是全部，只展开第一层，以后的类以第二层，第三层不需要展开。

Answer 1

第一曾展開
   Set NodeList = .Add(, , "RootCust", "所有客戶", 1)
       NodeList.Expanded = True
1.如何如道一个节点是第几层？
///用關鍵字去判斷，需要自己下手腳

Answer 2

1.如何如道一个节点是第几层？
 需要你自己在每个Node的Key里做一个标记，来标记这个Node是哪一个层的 比如：A_,B_,C_

Answer 3

.Expanded = True 是负责展开的你自己循环遍历吧

Answer 4

1.
Debug.Print TellLevel(TreeView1.Nodes("r4"), TreeView1.PathSeparator)Public Function TellLevel(ByVal oNode As Node, Optional ByVal sSeparator As String = "\") As Long
    TellLevel = UBound(Split(oNode.FullPath, sSeparator)) + 1
End Function2.
TreeView1.Nodes("r4").Expanded = True