TreeView控件使用教程4

11. LastSibling 属性（Node 对象）

这个属性返回对 TreeView 控件中的 Node 对象的最后相邻节点的引用。

语法

object.LastSibling

object 所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。

说明

最后的相邻节点是出现在一个节点层中最后位置上的 Node。实际上哪个 Node 出现在最后位置上取决于在那一层上的 Node 是否被排序，这由 Sorted 属性所确定。为了排序同一层上的 Node 对象，应把 Parent 节点的 Sorted 属性设置为 True。请参阅下面的代码：

Private Sub TreeView1_NodeClick(ByVal Node As Node)

Node.Parent.Sorted = True

End Sub

Child、FirstSibling、LastSibling、Previous、Parent、Next 和 Root 属性均返回对另一个 Node 对象的引用。所以，可以同时引用并执行对一个 Node 的操作，如下所示：

With TreeView1.Nodes(x).LastSibling

.Text = "New text"

.Key = "New key"

.SelectedImage = 3

End With

也可以将对象变量设置为引用的 Node，如下所示：
 
12. Previous 属性（Node 对象）

返回对 Node 对象的前一个相邻节点的引用。

语法

object. Previous

object 所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。

说明

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 '改变

13. Next 属性（Node 对象）

这个属性返回对 TreeView 控件的 Node 对象的下一个相邻 Node 的引用。

语法

object.Next

object 所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。

说明

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 '改变