【文章內(nèi)容簡介】 ”與“取消”按鈕的消息框。 If MsgBox(msg, vbExclamation amp。 vbOKCancel) = vbOK Then 39。釋放 DropHighlight 引用。 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é)點的引用。語法object 所在處代表一個對象表達(dá)式，其值是“應(yīng)用于”列表中的一個對象。說明Child、FirstSibling、LastSibling、Previous、Parent、Next 和 Root 屬性全都返回對另一個 Node 對象的引用。所以，可同時引用并執(zhí)行對 Node 的操作，如下所示：With ().Child .Text = New text .Key = New key .SelectedImage = 3End With也可以將對象變量設(shè)置為引用的 Node，如下所示：Dim NodChild As Node39。得到對被選中的節(jié)點的子節(jié)點的引用。Set NodChild = ().Child39。使用這個引用執(zhí)行對子節(jié)點的操作。With nodChild .Text = New text 39。改變文本。 .Key = New key 39。改變鍵。 .SelectedImage = 3 39。改變 SelectedImage。End WithChild 屬性示例這個例子創(chuàng)建幾個 Node 對象。在單擊 Node 對象時，代碼首先使用 Children 屬性確定 Node 是否有子節(jié)點。如果有，窗體的標(biāo)題就顯示 Child 節(jié)點的文本。Option ExplicitPrivate Sub Form_Load()39。這一代碼創(chuàng)建一棵帶有三個 Node 對象的樹。 = tvwTreelinesPlusMinusText 39。 Style 6. = tvwRootLines 39。Linestyle 1. 39。添加幾個Node對象。 Dim nodX As Node 39。創(chuàng)建變量。 Set nodX = (, , r, Root) Set nodX = (r, tvwChild, c1, Child 1) 39。顯示全部節(jié)點。 Set nodX = (c1, tvwChild, c2, Child 2) Set nodX = (c1, tvwChild, c3, Child 3) 39。顯示全部節(jié)點。End SubPrivate Sub TreeView1_NodeClick(ByVal Node As Node) 39。如果該節(jié)點確有子節(jié)點，則顯示 39。該子節(jié)點的文本。 If Then Caption = End IfEnd Sub9. Children 屬性 這個屬性返回包含在 Node 對象中的各子 Node 對象的個數(shù)。語法object 所在處代表一個對象表達(dá)式，其值是“應(yīng)用于”列表中的一個對象。說明在執(zhí)行一個影響子節(jié)點的操作之前，可用 Children 屬性檢查 Node 對象是否有子節(jié)點。例如，以下代碼在檢索第一個 Node 的 Text 屬性之前，使用 Child 屬性檢查子節(jié)點的存在。Private Sub TreeView1_NodeClick(ByVal Node As Node) If 0 Then MsgBox End IfEnd SubChildren 屬性示例這個例子在 TreeView 控件中放置幾個 Node 對象。這組代碼檢查 Node 是否有子節(jié)點。如果有，則顯示子節(jié)點的文本。為試用此例，在窗體上安放一個 TreeView 控件，并在窗體的聲明部分中粘貼下面的代碼。運(yùn)行此例，單擊 Node 對象以選擇它，然后單擊該窗體來察看 Node 對象的子節(jié)點的文本。Option ExplicitPrivate Sub Form_Click() Dim strC As String Dim N As Integer If 0 Then 39。有子節(jié)點。 39。獲取第一個子節(jié)點的文本，并將 N 設(shè)置為它的索引值。 strC = amp。 vbLF N = 39。若 N 不是子節(jié)點的最后相鄰節(jié)點的索引， 39。則獲取下一個相鄰節(jié)點的文本。 While N strC = strC amp。 (N). amp。 vbLF 39。重置 N 為下一個相鄰節(jié)點的索引。 N = (N). Wend 39。顯示結(jié)果。 MsgBox Children of amp。 amp。 _ are: amp。 vbLF amp。 strC Else 39。沒有子節(jié)點。 MsgBox amp。 has no children End IfEnd SubPrivate Sub Form_Load() = 1 39。確保邊界是可視的。 Dim nodX As Node Set nodX = (,d,Dates) Set nodX = (d,tvwChild,d89,1989) Set nodX = (d,tvwChild,d90,1990) 39。創(chuàng)建 1989 節(jié)點的子節(jié)點。 Set nodX = (d89,tvwChild, ,John) Set nodX = (d89,tvwChild, ,Brent) Set nodX = (d89,tvwChild, ,Eric) Set nodX = (d89,tvwChild, ,Ian) 39。顯示所有節(jié)點。 39。創(chuàng)建 1990 節(jié)點的子節(jié)點。 Set nodX = (d90,tvwChild, ,Randy) Set nodX = (d90,tvwChild, ,Ron) 39。顯示所有節(jié)點。End Sub10. FirstSibling 屬性（Node 對象）這個屬性返回對 TreeView 控件中的 Node 對象的第一個相鄰對象的引用。語法object 所在處代表一個對象表達(dá)式，其值是“應(yīng)用于”列表中的一個對象說明第一個相鄰節(jié)點是出現(xiàn)在一個節(jié)點層中第一個位置上的 Node。實際上到底是哪一個 Node 出現(xiàn)在第一個位置取決于在那一層上的 Node 對象是否被排序，這由 Sorted 屬性確定。Child、FirstSibling、LastSibling、Previous、Parent、Next 和 Root 屬性都返回對另一個 Node 對象的引用。所以可以同時引用并執(zhí)行對一個 Node 的操作，如下所示：With (x).FirstSibling .Text = New text .Key = New key .SelectedImage = 3End With也可以將對象變量設(shè)置為引用的 Node，如下所示：Dim NodFirstSib As Node39。獲取 Node x 的第一個相鄰節(jié)點的引用。Set NodFirstSib = (x).FirstSibling39。使用這個引用執(zhí)行對第一個相鄰 Node 的操作。With nodFirstSib .Text = New text 39。改變文本。 .Key = New key 39。改變鍵。 .SelectedImage = 3 39。改變 SelectedImage.End WithFirstSibling 屬性示例這個例子給 TreeView 控件添加幾個節(jié)點。FirstSibling 屬性，與 Next 屬性和 LastSibling 屬性聯(lián)用，被用于在點取的 Node 對象的層中定位。為試用此例，要在窗體上安放一個 TreeView 控件并在窗體的聲明部分粘貼該代碼。運(yùn)行此例，單擊不同的節(jié)點來觀察返回的是什么。Private Sub Form_Load() Dim nodX As Node Set nodX = (,dad,Mike) 39。第一個相鄰的節(jié)點。 Set nodX = (,mom,Carol) Set nodX = (,Alice) 39。Marsha 是第一個相鄰節(jié)點。 Set nodX = (mom,tvwChild,Marsha) Set nodX = (mom,tvwChild,Jan) Set nodX = (mom,tvwChild,Cindy) 39。顯示全部節(jié)點。 39。Greg 是第一個相鄰節(jié)點。 Set nodX = (dad,tvwChild,Greg) Set nodX = (dad,tvwChild,Peter) Set nodX = (dad,tvwChild,Bobby) 39。顯示全部節(jié)點。End SubPrivate Sub TreeView1_NodeClick(ByVal Node As Node) Dim strText As String Dim n As Integer 39。設(shè)置 n 為第一個相鄰節(jié)點的索引。 n = 39。在字符串變量中安放第一個相鄰節(jié)點文本和換行。 strText = amp。 vbLF While n 39。在 n 不是最后相鄰節(jié)點的索引時，轉(zhuǎn)到 39。下一個相鄰節(jié)點并將它的文本放到字符串變量中。 strText = strText amp。 (