[转帖][分享]TreeView控件使用教程

fan0217

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，如下所示：


< 0cm 0cm 0pt;

fan0217

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   '改变<FONT face="Times New

fan0217

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

fan0217

14. FullPath 属性


这个属性返回在 TreeView 控件中引用的 Node 对象的完整限定路径。当赋予该属性为字符串变量时，该字符串被设为具有指定索引的 FullPath 节点。





语法


object.FullPath


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





说明


完整限定路径是引用的 Node 对象的 Text 属性中的文本与它的所有前辈的 Text 属性值的连接。PathSeparator 属性的值确定定界符。





FullPath 属性示例


这个例子为 TreeView 控件添加几个 Node 对象，并在每个对象被选中时显示其完整限定路径。为试用此例，要在窗体上安放一个 TreeView 控件并在窗体的声明部分粘贴该代码。运行此例，然后选择一个节点，单击窗体显示该 Node 对象的完整路径。





Private Sub Form_Load()


   Dim nodX As Node


   Set nodX = TreeView1.Nodes.Add(,,,"Root")


   Set nodX = TreeView1.Nodes.Add(1,tvwChild,,"Dir1")


   Set nodX = TreeView1.Nodes.Add(2,tvwChild,,"Dir2")


   Set nodX = TreeView1.Nodes.Add(3,tvwChild,,"Dir3")


   Set nodX = TreeView1.Nodes.Add(4,tvwChild,,"Dir4")


   nodX.EnsureVisible   '显示全部节点。


   TreeView1.Style = tvwTreelinesText '样式 4。


End Sub


<FONT face="Tim

fan0217

15. Selected 属性（ActiveX 控件）


返回或设置确定一个对象是否被选中的值。对于 ListItem 对象，Selected 属性不设置 SelectedItem 属性，这样就不会使对象被选中。它仅返回一值，表明是否已用其它方法选中了 ListItem 对象。





语法


object.Selected [ = boolean]


Selected 属性语法包含下面部分：





部分 描述


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


boolean 布尔表达式，指明对象是否已被选中。





说明


用 Selected 属性编程选择指定的 Node 或 Tab 对象。一旦用此法选定了对象，就可对此对象执行各种操作，如设置各种属性及调用各种方法。





为选择指定的 Node 对象，必须通过它的 Index 属性或 Key 属性的值去引用它。下面的例子是在 TreeView 控件中选择指定的 Node 对象：





Private Sub Command1_Click()


   TreeView1.Nodes(3).Selected = True '选择对象。


   '用 SelectedItem 属性得到对该对象的引用。


   TreeView1.SelectedItem.Text = "Changed Text"


End Sub





在 ListView 控件中，SelectedItem 属性总是引用第一个选中的项，因此，如多个项被选中，必须遍历所有选中

fan0217

16. SelectedImage 属性      


返回或设置在相关的 ImageList 控件中的 ListImage 对象的索引值或键值；当 Node 对象被选中时显示 ListImage。





语法


object.SelectedImage [ = index]


SelectedImage 属性语法包含下面部分：





部分 描述


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


index 整数或唯一字符串，标识在相关的 ImageList 控件中的 ListImage 对象。整数是 ListImage 对象的 Index 属性的值；字符串是 Key 属性的值。  





说明


如果这个属性置为 Null，则使用由 Image 属性指定的缺省图形的屏蔽。





17. Expanded 属性      


这个属性返回或设置一个值，该值确定在 TreeView 控件中的 Node 对象当前是被展开的还是被折叠的。





语法


object.Expanded[= boolean]


Expanded 属性的语法包含下面部分：





部分 描述


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


boolea

xiang8460064

好东西啊[em01]

wzh

辛苦了,感谢版主的真情奉献!

左耳

不错不错，要是做个电子书可以下载就更爽了

jfffabc

很有用处，谢谢楼主