【正文】 ad,tvwChild,Peter) 39。 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。當(dāng) n 不是最后相鄰節(jié)點(diǎn)的索引時(shí)，轉(zhuǎn)向下一個(gè)相鄰的節(jié)點(diǎn) 39。 strText = strText amp。 vbLF 39。 n = (n). Wend MsgBox strText 39。End Sub12. Previous 屬性（Node 對(duì)象） 返回對(duì) Node 對(duì)象的前一個(gè)相鄰節(jié)點(diǎn)的引用。說明Child、FirstSibling、LastSibling、Previous、Parent、Next 和 Root 屬性全部返回對(duì)另一個(gè) Node 對(duì)象的引用，因此，可以同時(shí)引用并執(zhí)行對(duì) Node 的操作，如下所示：With (x).Previous .Text = New text .Key = New key .SelectedImage = 3End With也可以將對(duì)象變量設(shè)置為引用的 Node，如下所示：Dim NodPrevious As Node39。Set NodChild = (x).Previous39。With nodPrevious .Text = New text 39。 .Key = New key 39。 .SelectedImage = 3 39。End WithPrevious 屬性示例這個(gè)例子添加幾個(gè)節(jié)點(diǎn)到 TreeView 控件。為試用此例，在窗體上放置 TreeView 控件，并粘貼下面的代碼到窗體的聲明部分。Private Sub Form_Load() Dim nodX As Node Set nodX = (, , r, Root) Set nodX = (, , p, parent) Set nodX = (r, tvwChild, , Child 1) Set nodX = (r, tvwChild, , Child 2) Set nodX = (r, tvwChild, , Child 3) 39。 Set nodX = (p, tvwChild, , Child 4) Set nodX = (p, tvwChild, , Child 5) Set nodX = (p, tvwChild, , Child 6) 39。End SubPrivate Sub TreeView1_NodeClick(ByVal Node As Node) Dim strText As String Dim n As Integer 39。 n = 39。 strText = amp。當(dāng) n 不是第一個(gè)相鄰節(jié)點(diǎn)的索引時(shí)， 39。 strText = strText amp。 vbLF 39。 n = (n). Wend MsgBox strText 39。End Sub13. Next 屬性（Node 對(duì)象）這個(gè)屬性返回對(duì) TreeView 控件的 Node 對(duì)象的下一個(gè)相鄰 Node 的引用。說明Child、FirstSibling、LastSibling、Previous、Parent、Next 和 Root 屬性均返回對(duì)另一個(gè) Node 對(duì)象的引用。獲得對(duì)節(jié)點(diǎn) x 的子節(jié)點(diǎn)的引用。使用這個(gè)引用來執(zhí)行對(duì)子節(jié)點(diǎn)的操作。改變文本。改變鍵。改變 SelectedImage.End WithNext 屬性示例這個(gè)例子為 TreeView 控件添加幾個(gè) Node 對(duì)象。為試用此例，要在窗體上安放一個(gè) TreeView 控件，并在窗體的聲明部分粘貼該代碼。Private Sub Form_Load() Dim nodX As Node Set nodX = (,dad,Mike) Set 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 = (dad,tvwChild,Peter) 39。 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。當(dāng) n 不是最后相鄰節(jié)點(diǎn)的索引時(shí)，轉(zhuǎn)向下一個(gè)相鄰節(jié)點(diǎn)， 39。 While n strText = strText amp。 vbLF 39。 n = (n). Wend MsgBox strText 39。End Sub14. FullPath 屬性 這個(gè)屬性返回在 TreeView 控件中引用的 Node 對(duì)象的完整限定路徑。語法object 所在處代表一個(gè)對(duì)象表達(dá)式，其值是“應(yīng)用于”列表中的一個(gè)對(duì)象。PathSeparator 屬性的值確定定界符。為試用此例，要在窗體上安放一個(gè) TreeView 控件并在窗體的聲明部分粘貼該代碼。Private Sub Form_Load() Dim nodX As Node Set nodX = (,Root) Set nodX = (1,tvwChild,Dir1) Set nodX = (2,tvwChild,Dir2) Set nodX = (3,tvwChild,Dir3) Set nodX = (4,tvwChild,Dir4) 39。 = tvwTreelinesText 39。End SubPrivate Sub TreeView1_NodeClick(ByVal Node As Node) MsgBox End Sub15. Selected 屬性（ActiveX 控件）返回或設(shè)置確定一個(gè)對(duì)象是否被選中的值。它僅返回一值，表明是否已用其它方法選中了 ListItem 對(duì)象。 boolean 布爾表達(dá)式，指明對(duì)象是否已被選中。一旦用此法選定了對(duì)象，就可對(duì)此對(duì)象執(zhí)行各種操作，如設(shè)置各種屬性及調(diào)用各種方法。下面的例子是在 TreeView 控件中選擇指定的 Node 對(duì)象：Private Sub Command1_Click() (3).Selected = True 39。 39。 = Changed TextEnd Sub在 ListView 控件中，SelectedItem 屬性總是引用第一個(gè)選中的項(xiàng)，因此，如多個(gè)項(xiàng)被選中，必須遍歷所有選中的項(xiàng)，以校驗(yàn)每個(gè)項(xiàng)的 Selected 屬性。當(dāng)選定 Node 時(shí)，對(duì)選定的 Node 的引用被用來顯示它的鍵。運(yùn)行此例，選擇 Node 并單擊窗體。創(chuàng)建樹。顯示全部節(jié)點(diǎn)。顯示全部節(jié)點(diǎn)。如果整數(shù)未輸入。確保整數(shù)已輸入。 is selected. Else MsgBox Not selected End If End IfEnd Sub下面例子添加三個(gè) ListItem 對(duì)象到 ListView 控件。為試用此例，在窗體上放置 ListView 控件并粘貼下面的代碼到窗體的聲明部分。Private Sub Form_Load() = vbFixedSingle 39。 Dim itmX As ListViewItem Set itmX = (,Item 1) Set itmX = (,Item 2) Set itmX = (,Item 3)End SubPrivate Sub Form_Click() Dim intX As Integer On Error Resume Next 39。 intX = InputBox(Check Item, , ) If IsNumeric(intX) Then 39。 If (intX).Selected = True Then MsgBox (intX).Text amp。語法 [ = index]SelectedImage 屬性語法包含下面部分：部分 描述 object 對(duì)象表達(dá)式，其值是“應(yīng)用于”列表中的一個(gè)對(duì)象。整數(shù)是 ListImage 對(duì)象的 Index 屬性的值；字符串是 Key 屬性的值。17. Expanded 屬性 這個(gè)屬性返回或設(shè)置一個(gè)值，該值確定在 TreeView 控件中的 Node 對(duì)象當(dāng)前是被展開的還是被折疊的。 boolean 布爾表達(dá)式，其值指定該節(jié)點(diǎn)是被展開的還是被折疊的。 False 該 Node 當(dāng)前被折疊。在單擊窗體時(shí)，每一個(gè) Node 的 Expanded 屬性均被設(shè)置為 True。運(yùn)行此例，單擊該窗體以展開全部 Node 對(duì)象。顯示邊框。創(chuàng)建一個(gè)根節(jié)點(diǎn)。添加五個(gè)子節(jié)點(diǎn)。 CStr(i)) Next iEnd SubPrivate Sub Form_Click() Dim I as Integer For I = 1 to 39。 (i).Expanded = True Next IEnd Sub18. Bold屬性（Windows 通用控件） 返回或設(shè)置一個(gè)值，確定對(duì)象文本是否為粗體。 boolean 一個(gè)布爾表達(dá)式，指定文本是否為粗體，如設(shè)置值所描述的。 True 文本是粗體