【正文】 Text = New text .Key = New key .SelectedImage = 3End With也可以將對象變量設置為被引用的 Node，如下所示：Dim NodRoot As Node39。Set NodRoot = (x).Root39。With nodRoot .Text = New text 39。 .Key = New key 39。 .SelectedImage = 3 39。End WithRoot 屬性示例這個例子添加幾個 Node 對象到 TreeView 控件，當單擊 Node 時，代碼沿樹向上漫游直到 Root 節(jié)點，并且顯示每一個 Parent 節(jié)點的文本。運行此例，并單擊 Node。創(chuàng)建樹。顯示全部節(jié)點。顯示全部節(jié)點。信息變量。設置 n 為被點取節(jié)點的索引。 vbLF While n strParents = strParents amp。 vbLF 39。 n = (n). Wend MsgBox strParentsEnd Sub7. Parent 屬性（Node 對象） 這個屬性返回或設置 Node 對象的父對象。語法[ = node]Parent 屬性的語法包含下面部分：部分 描述 object 對象表達式，其值是“應用于”列表中的一個對象。 說明在運行時，設置這個屬性為一個對象的操作不能搞成一個循環(huán)，否則便發(fā)生錯誤。Child、FirstSibling、LastSibling、Previous、Parent、Next 和 Root 屬性都返回對另一個 Node 對象的引用。獲取對節(jié)點 x 的父節(jié)點的引用。使用這個引用來執(zhí)行對父節(jié)點的操作。改變該文本。改變鍵。改變 SelectedImage。在選擇了 Node 對象后，可以單擊并拖動它到任何其它 Node，以使它成為該目標 Node 的子節(jié)點。運行此例，并將一些 Node 對象拖動到其它 Node 對象之上來觀察結(jié)果。聲明全局變量。指示拖放操作的標志。要拖動的項。在 Imagelist 控件中加載一個位圖。初始化 TreeView 控件并創(chuàng)建幾個節(jié)點。創(chuàng)建樹。展開樹，顯示全部節(jié)點。設置要拖動的項。指示拖動操作。設置標志為 true。用 CreateDragImage 方法設置拖動圖標。拖動操作。如果用戶沒移動鼠標，或在無效區(qū)釋放它。設置被拖動的節(jié)點的 parent 屬性為目標節(jié)點。阻止循環(huán)錯誤。 _ is parent of amp。釋放 DropHighlight 引用。如未發(fā)生錯誤則退出。定義表示 Visual Basic 錯誤代碼的常數(shù)。t be made a child of its own children. 39。和“確定”與“取消”按鈕的消息框。 vbOKCancel) = vbOK Then 39。 indrag = False Set = Nothing Exit Sub End If End IfEnd SubPrivate Sub TreeView1_DragOver(Source As Control, x As Single, y As Single, State As Integer) Set = (x, y)End Sub8. Child 屬性（Node 對象） 返回對 TreeView 控件中的 Node 對象的第一個子節(jié)點的引用。說明Child、FirstSibling、LastSibling、Previous、Parent、Next 和 Root 屬性全都返回對另一個 Node 對象的引用。得到對被選中的節(jié)點的子節(jié)點的引用。使用這個引用執(zhí)行對子節(jié)點的操作。改變文本。改變鍵。改變 SelectedImage。在單擊 Node 對象時，代碼首先使用 Children 屬性確定 Node 是否有子節(jié)點。Option ExplicitPrivate Sub Form_Load()39。 = tvwTreelinesPlusMinusText 39。Linestyle 1. 39。 Dim nodX As Node 39。 Set nodX = (, , r, Root) Set nodX = (r, tvwChild, c1, Child 1) 39。 Set nodX = (c1, tvwChild, c2, Child 2) Set nodX = (c1, tvwChild, c3, Child 3) 39。End SubPrivate Sub TreeView1_NodeClick(ByVal Node As Node) 39。該子節(jié)點的文本。語法object 所在處代表一個對象表達式，其值是“應用于”列表中的一個對象。例如，以下代碼在檢索第一個 Node 的 Text 屬性之前，使用 Child 屬性檢查子節(jié)點的存在。這組代碼檢查 Node 是否有子節(jié)點。為試用此例，在窗體上安放一個 TreeView 控件，并在窗體的聲明部分中粘貼下面的代碼。Option ExplicitPrivate Sub Form_Click() Dim strC As String Dim N As Integer If 0 Then 39。 39。 strC = amp。若 N 不是子節(jié)點的最后相鄰節(jié)點的索引， 39。 While N strC = strC amp。 vbLF 39。 N = (N). Wend 39。 MsgBox Children of amp。 _ are: amp。 strC Else 39。 MsgBox amp。確保邊界是可視的。創(chuàng)建 1989 節(jié)點的子節(jié)點。顯示所有節(jié)點。創(chuàng)建 1990 節(jié)點的子節(jié)點。顯示所有節(jié)點。語法object 所在處代表一個對象表達式，其值是“應用于”列表中的一個對象說明第一個相鄰節(jié)點是出現(xiàn)在一個節(jié)點層中第一個位置上的 Node。Child、FirstSibling、LastSibling、Previous、Parent、Next 和 Root 屬性都返回對另一個 Node 對象的引用。獲取 Node x 的第一個相鄰節(jié)點的引用。使用這個引用執(zhí)行對第一個相鄰 Node 的操作。改變文本。改變鍵。改變 SelectedImage.End WithFirstSibling 屬性示例這個例子給 TreeView 控件添加幾個節(jié)點。為試用此例，要在窗體上安放一個 TreeView 控件并在窗體的聲明部分粘貼該代碼。Private Sub Form_Load() Dim nodX As Node Set nodX = (,dad,Mike) 39。 Set nodX = (,mom,Carol) Set nodX = (,Alice) 39。 Set nodX = (mom,tvwChild,Marsha) Set nodX = (mom,tvwChild,Jan) Set nodX = (mom,tvwChild,Cindy) 39。 39。 Set nodX = (dad,tvwChild,Greg) Set nodX = (dad,tvwChild,Peter) Set nodX = (dad,tvwChild,Bobby) 39。End SubPrivate Sub TreeView1_NodeClick(ByVal Node As Node) Dim strText As String Dim n As Integer 39。 n = 39。 strText = amp。在 n 不是最后相鄰節(jié)點的索引時，轉(zhuǎn)到 39。 strText = strText amp。 vbLF 39。 n = (n). Wend MsgBox strText 39。End Sub11. LastSibling 屬性（Node 對象）這個屬性返回對 TreeView 控件中的 Node 對象的最后相鄰節(jié)點的引用。說明最后的相鄰節(jié)點是出現(xiàn)在一個節(jié)點層中最后位置上的 Node。為了排序同一層上的 Node 對象，應把 Parent 節(jié)點的 Sorted 屬性設置為 True。所以，可以同時引用并執(zhí)行對一個 Node 的操作，如下所示：With (x).LastSibling .Text = New text .Key = New key .SelectedImage = 3End With也可以將對象變量設置為引用的 Node，如下所示：Dim NodLastSib As Node39。Set NodLastSib = (x).LastSibling39。With nodLastSib .Text = New text 39。 .Key = New key 39。 .SelectedImage = 3 39。End WithLastSibling 屬性示例這個例子為 TreeView 控件添加幾個 Node 對象。為試用此例，要在窗體上安放 TreeView 控件，并在窗體的聲明部分粘貼該代碼。Private Sub Form_Load() Dim nodX As Node Set nodX = (,dad,Mike) Szet nodX = (,mom,Carol) 39。 Set nodX = (,Alice) Set nodX = (mom,tvwChild,Marsha) Set nodX = (mom,tvwChild,Jan) 39。 Set nodX = (mom,tvwChild,Cindy) 39。 Set nodX = (dad,tvwChild,Greg) Set nodX = (d