请教如何取得Treeview控件中的某一接点（改天请吃饭）


Root 属性（Node 对象）
      返回对所选 Node 的根 Node 对象的引用。语法object.Rootobject 所在处代表是对象表达式，其值是“应用于”列表中的对象说明Child、FirstSibling、LastSibling、Previous、Parent、Next 和 Root 各属性全将返回对另一个 Node 对象的引用。因此，可以同时引用并执行对 Node 的操作，如下所示：With TreeView1.Nodes(x).Root
   .Text = "New text"
   .Key = "New key"
   .SelectedImage = 3
End With也可以将对象变量设置为被引用的 Node，如下所示：Dim NodRoot As Node
'得到对节点 x 的根的引用。
Set NodRoot = TreeView1.Nodes(x).Root
'用此引用执行对根节点的操作。
With nodRoot
   .Text = "New text"   '改变文本。
   .Key = "New key"   '改变键。
   .SelectedImage = 3   '改变 SelectedImage。
End With 
Parent 属性（Node 对象）
      这个属性返回或设置 Node 对象的父对象。仅在运行时可用。语法object.Parent[ = node]Parent 属性的语法包含下面部分：部分 描述 
object 对象表达式，其值是“应用于”列表中的一个对象。 
node 变成该对象的父对象的 Node 对象。 
说明在运行时，设置这个属性为一个对象的操作不能搞成一个循环，否则便发生错误。例如，不能将任何 Node 设置成为其后代的子 Node。Child、FirstSibling、LastSibling、Previous、Parent、Next 和 Root 属性都返回对另一个 Node 对象的引用。所以可以同时引用并执行对一个 Node 的操作，如下所示：With TreeView1.Nodes(x).Parent
   .Text = "New text"
   .Key = "New key"
   .SelectedImage = 3
End With也可以将对象变量设置为引用的 Node，如下所示：Dim NodParent As Node
'获取对节点 x 的父节点的引用。
Set NodParent = TreeView1.Nodes(x).Parent
'使用这个引用来执行对父节点的操作。
With nodParent
   .Text = "New text"   '改变该文本。
   .Key = "New key"   '改变键。
   .SelectedImage = 3   '改变 SelectedImage。
End With
 
Child 属性（Node 对象）
      返回对 TreeView 控件中的 Node 对象的第一个子节点的引用。语法object.Childobject 所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。说明Child、FirstSibling、LastSibling、Previous、Parent、Next 和 Root 属性全都返回对另一个 Node 对象的引用。所以，可同时引用并执行对 Node 的操作，如下所示：With TreeView1.Nodes(TreeView1.SelectedItem.Index).Child
   .Text = "New text"
   .Key = "New key"
   .SelectedImage = 3
End With也可以将对象变量设置为引用的 Node，如下所示：Dim NodChild As Node
'得到对被选中的节点的子节点的引用。
Set NodChild = TreeView1.Nodes(TreeView1.SelectedItem.Index).Child
'使用这个引用执行对子节点的操作。
With nodChild
   .Text = "New text"   '改变文本。
   .Key = "New key"   '改变键。
   .SelectedImage = 3   '改变 SelectedImage。
End With
 
FirstSibling 属性
      这个属性返回对 TreeView 控件中的 Node 对象的第一个相邻对象的引用。语法object.FirstSiblingobject 所在处代表一个对象表达式，其值是“应用于”列表中的一个对象说明第一个相邻节点是出现在一个节点层中第一个位置上的 Node。实际上到底是哪一个 Node 出现在第一个位置取决于在那一层上的 Node 对象是否被排序，这由 Sorted 属性确定。Child、FirstSibling、LastSibling、Previous、Parent、Next 和 Root 属性都返回对另一个 Node 对象的引用。所以可以同时引用并执行对一个 Node 的操作，如下所示：With TreeView1.Nodes(x).FirstSibling
   .Text = "New text"
   .Key = "New key"
   .SelectedImage = 3
End With也可以将对象变量设置为引用的 Node，如下所示：Dim NodFirstSib As Node
'获取 Node x 的第一个相邻节点的引用。
Set NodFirstSib = TreeView1.Nodes(x).FirstSibling
'使用这个引用执行对第一个相邻 Node 的操作。
With nodFirstSib
   .Text = "New text"   '改变文本。
   .Key = "New key"   '改变键。
   .SelectedImage = 3   '改变 SelectedImage.
End With
 
Next 属性
      这个属性返回对 TreeView 控件的 Node 对象的下一个相邻 Node 的引用。语法object.Nextobject 所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。说明Child、FirstSibling、LastSibling、Previous、Parent、Next 和 Root 属性均返回对另一个 Node 对象的引用。所以可以同时引用并执行对一个 Node 的操作，如下所示：With TreeView1.Nodes(x).Child
   .Text = "New text"
   .Key = "New key"
   .SelectedImage = 3
End With也可以将对象变量设置为引用的 Node，如下：Dim NodChild As Node
'获得对节点 x 的子节点的引用。
Set NodChild = TreeView1.Nodes(x).Child
'使用这个引用来执行对子节点的操作。
With nodChild
   .Text = "New text"   '改变文本。
   .Key = "New key"   '改变键。
   .SelectedImage = 3   '改变 SelectedImage.
End With
 
Previous 属性（Node 对象）
      返回对 Node 对象的前一个相邻节点的引用。语法object. Previousobject 所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。说明Child、FirstSibling、LastSibling、Previous、Parent、Next 和 Root 属性全部返回对另一个 Node 对象的引用，因此，可以同时引用并执行对 Node 的操作，如下所示：With TreeView1.Nodes(x).Previous
   .Text = "New text"
   .Key = "New key"
   .SelectedImage = 3
End With也可以将对象变量设置为引用的 Node，如下所示：Dim NodPrevious As Node
'获得对节点 x 的前一个相邻节点的引用。
Set NodChild = TreeView1.Nodes(x).Previous
'用此引用执行对前一个相邻节点的操作。
With nodPrevious
   .Text = "New text"   '改变文本。
   .Key = "New key"   '改变键。
   .SelectedImage = 3   '改变 SelectedImage。
End With
 
LastSibling 属性
      这个属性返回对 TreeView 控件中的 Node 对象的最后相邻节点的引用。语法object.LastSiblingobject 所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。说明最后的相邻节点是出现在一个节点层中最后位置上的 Node。实际上哪个 Node 出现在最后位置上取决于在那一层上的 Node 是否被排序，这由 Sorted 属性所确定。为了排序同一层上的 Node 对象，应把 Parent 节点的 Sorted 属性设置为 True。请参阅下面的代码：Private Sub TreeView1_NodeClick(ByVal Node As Node)
   Node.Parent.Sorted = True
End SubChild、FirstSibling、LastSibling、Previous、Parent、Next 和 Root 属性均返回对另一个 Node 对象的引用。所以，可以同时引用并执行对一个 Node 的操作，如下所示：With TreeView1.Nodes(x).LastSibling
   .Text = "New text"
   .Key = "New key"
   .SelectedImage = 3
End With也可以将对象变量设置为引用的 Node，如下所示：Dim NodLastSib As Node
'获得对节点 x 的最后相邻节点的引用。
Set NodLastSib = TreeView1.Nodes(x).LastSibling
'使用这个引用执行对相邻节点的操作。
With nodLastSib
   .Text = "New text"   '改变文本。
   .Key = "New key"   '改变键。
   .SelectedImage = 3   '改变 SelectedImage。
End With