TreeView用法，在线等待，急！

Question

使用Treeview控件时，如果鼠标点击树节点（行政部：车队）时，VB窗口中控件的text1.text=行政部，text2.text=车队，如果点击节点（生产部：五金仓库）时vb窗口中的控件text1.text=生产部，text2.text=五金仓库，如此类推，请问要怎样做

Answer 1

Private Sub TreeView1_NodeClick(ByVal Node As ComctlLib.Node)
    Dim strTexts() As String
    
    strTexts = Split(Me.TreeView1.SelectedItem.Text, ":")
    Me.Text1.Text = strTexts(0)
    Me.Text2.Text = strTexts(1)
End Sub

Answer 2

Private Sub Form_Load()
    '初始化treeview
    TreeView1.HideSelection = True
    TreeView1.Indentation = 19 * Screen.TwipsPerPixelX
    TreeView1.LabelEdit = tvwManual
    TreeView1.LineStyle = tvwRootLines
    
    '---==以下设置节点==---
    Dim Node1 As Node, Node2 As Node
    Dim dzd_tmp1 As String
    Dim xzd_tmp1 As String
    '填充treeview
    For i = 1 To 5
        DoEvents
        
        dzd_tmp1 = "xx" & i
        Set Node1 = TreeView1.Nodes.Add(, , , dzd_tmp1)
        For j = 1 To 5
            DoEvents
            xzd_tmp1 = "y" & j
            Set Node2 = TreeView1.Nodes.Add(Node1.Index, _
            tvwChild, , xzd_tmp1)
        Next
        Node1.Expanded = False
    Next
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
  If Not Node.Parent Is Nothing Then
     Text1 = Node.Parent.Text
     Text2 = Node.Text
  End If
  
End Sub