TreeView控件问题，100分急求解！！！

Question

树的节点结构
    类型
     |
     |---------普通（key:   CJ0）
     |            |---------A型（key:   SJ-0-0）
     |            |
     |            |---------B型（key:   SJ-0-1）
     |            |
     |            |---------C型（key:   SJ-0-2）
     |
     |---------高级（key:   CJ1）
     |            |---------A型（key:   SJ-1-0）
     |            |
     |            |---------B型（key:   SJ-1-1）
     |            |
     |            |---------C型（key:   SJ-1-2）
     |
     |---------其它（key:   CJ2）
                  |---------A型（key:   SJ-2-0）
                  |
                  |---------B型（key:   SJ-2-1）
                  |
                  |---------C型（key:   SJ-2-2）        Dim i As Integer, j As Integer, n As Integer
    
    For i = 0 To 2
        '从CJ0循环到CJ2
        For j = 0 To 2
           '再依次循环
           
           '这里，如果得到了key:   CJ0 和key:   SJ-0-0           '怎样获得"普通"这个字符和"A型"字符？？？？？？？？？        Next j
    Next i

Answer 1

Dim objX
    Dim intI As Integer
    For Each objX In TreeView.Nodes
        If objX.Key = "CJO" Then
            msgbox(objX.Text) 
        End If
    Next是不是这个意思？

Answer 2

left(TreeView1.Nodes("CJ0").Text,instr(TreeView1.Nodes("CJ0").Text,"(")-1)

Answer 3

二樓的意思。當然寫雙循環也是可以的
 treeview的說明可以看MSDN
好象中文站已經開通了   'TreeView 引用方法
   'nodes.add 親子, 親子關係,索引鍵,文字,示意圖,被選取的圖示treeview隻要注意key的時候需要加文本

Answer 4

tvwTreeView.Nodes(i).text               '"普通"
tvwTreeView.Nodes(i).Parent.text        '"A型"

Answer 5

dim i as integerfor i=1 to treeview1.nodes.count
      debug.pring treeview1.nodes(i).text
next i