各位大哥帮帮忙？

Question

例：
 Dim nodX As Node
   Set nodX = TreeView1.Nodes.Add(, , "key01", "人事模块", 3) '增加根
  Set nodX = TreeView1.Nodes.Add("key01", tvwChild, "key001", "员工挡案", 1) '添加子
在VB中怎么通过单击树，让文本框（text1.text）获得子节点的的名称《“员工挡案”》。

Answer 1

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Text1.Text = Node.Child.Text
End Sub