【正文】 d,Bobby) 39。顯示全部節(jié)點(diǎn)。End SubPrivate Sub TreeView1_NodeClick(ByVal Node As Node) Dim strText As String Dim n As Integer 39。設(shè)置 n 為第一個(gè)相鄰節(jié)點(diǎn)的索引。 n = 39。在字符串變量中安放第一個(gè)相鄰節(jié)點(diǎn)的文本和換行。 strText = amp。 vbLF 39。當(dāng) n 不是最后相鄰節(jié)點(diǎn)的索引時(shí)，轉(zhuǎn)向下一個(gè)相鄰節(jié)點(diǎn)， 39。并將其文本安放到字符串變量中。 While n strText = strText amp。 (n). amp。 vbLF 39。設(shè)置 n 為下一個(gè)節(jié)點(diǎn)的索引。 n = (n). Wend MsgBox strText 39。顯示結(jié)果。End Sub14. FullPath 屬性 這個(gè)屬性返回在 TreeView 控件中引用的 Node 對(duì)象的完整限定路徑。當(dāng)賦予該屬性為字符串變量時(shí)，該字符串被設(shè)為具有指定索引的 FullPath 節(jié)點(diǎn)。語(yǔ)法object 所在處代表一個(gè)對(duì)象表達(dá)式，其值是“應(yīng)用于”列表中的一個(gè)對(duì)象。說(shuō)明完整限定路徑是引用的 Node 對(duì)象的 Text 屬性中的文本與它的所有前輩的 Text 屬性值的連接。PathSeparator 屬性的值確定定界符。FullPath 屬性示例這個(gè)例子為 TreeView 控件添加幾個(gè) Node 對(duì)象，并在每個(gè)對(duì)象被選中時(shí)顯示其完整限定路徑。為試用此例，要在窗體上安放一個(gè) TreeView 控件并在窗體的聲明部分粘貼該代碼。運(yùn)行此例，然后選擇一個(gè)節(jié)點(diǎn)，單擊窗體顯示該 Node 對(duì)象的完整路徑。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。顯示全部節(jié)點(diǎn)。 = tvwTreelinesText 39。樣式 4。End SubPrivate Sub TreeView1_NodeClick(ByVal Node As Node) MsgBox End Sub15. Selected 屬性（ActiveX 控件）返回或設(shè)置確定一個(gè)對(duì)象是否被選中的值。對(duì)于 ListItem 對(duì)象，Selected 屬性不設(shè)置 SelectedItem 屬性，這樣就不會(huì)使對(duì)象被選中。它僅返回一值，表明是否已用其它方法選中了 ListItem 對(duì)象。語(yǔ)法 [ = boolean]Selected 屬性語(yǔ)法包含下面部分：部分 描述 object 對(duì)象表達(dá)式，其值是“應(yīng)用于”列表中的一個(gè)對(duì)象。 boolean 布爾表達(dá)式，指明對(duì)象是否已被選中。 說(shuō)明用 Selected 屬性編程選擇指定的 Node 或 Tab 對(duì)象。一旦用此法選定了對(duì)象，就可對(duì)此對(duì)象執(zhí)行各種操作，如設(shè)置各種屬性及調(diào)用各種方法。為選擇指定的 Node 對(duì)象，必須通過(guò)它的 Index 屬性或 Key 屬性的值去引用它。下面的例子是在 TreeView 控件中選擇指定的 Node 對(duì)象：Private Sub Command1_Click() (3).Selected = True 39。選擇對(duì)象。 39。用 SelectedItem 屬性得到對(duì)該對(duì)象的引用。 = Changed TextEnd Sub在 ListView 控件中，SelectedItem 屬性總是引用第一個(gè)選中的項(xiàng)，因此，如多個(gè)項(xiàng)被選中，必須遍歷所有選中的項(xiàng)，以校驗(yàn)每個(gè)項(xiàng)的 Selected 屬性。注意 不用 Select 屬性去編程選擇 ListItem 對(duì)象，而用帶有 SelectedItem 屬性的 Set 語(yǔ)句，如：Set = (1)Selected 屬性示例這個(gè)例子添加幾個(gè) Node 對(duì)象到 TreeView 控件。當(dāng)選定 Node 時(shí)，對(duì)選定的 Node 的引用被用來(lái)顯示它的鍵。為試用此例，在窗體上放置 TreeView 控件，并粘貼下面的代碼到窗體的聲明部分。運(yùn)行此例，選擇 Node 并單擊窗體。Private Sub Form_Load() Dim nodX As Node 39。創(chuàng)建樹(shù)。 Set nodX = (,r,Root) Set nodX = (,p,Parent) Set nodX = (p,tvwChild,Child 1) 39。顯示全部節(jié)點(diǎn)。 Set nodX = (r,tvwChild,C2,Child 2) Set nodX = (C2,tvwChild,C3,Child 3) Set nodX = (C3,tvwChild,Child 4) Set nodX = (C3,tvwChild,Child 5) 39。顯示全部節(jié)點(diǎn)。End SubPrivate Sub Form_Click() Dim intX As Integer On Error Resume Next 39。如果整數(shù)未輸入。 intX = InputBox(Check Node,) If IsNumeric(intX) Then 39。確保整數(shù)已輸入。 If (intX).Selected = True Then MsgBox (intX).Text amp。 is selected. Else MsgBox Not selected End If End IfEnd Sub下面例子添加三個(gè) ListItem 對(duì)象到 ListView 控件。當(dāng)單擊窗體時(shí)，代碼用 Selected 屬性來(lái)確定指定的 ListView 對(duì)象是否被選中。為試用此例，在窗體上放置 ListView 控件并粘貼下面的代碼到窗體的聲明部分。運(yùn)行此例，選擇 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。如果整數(shù)未輸入。 intX = InputBox(Check Item, , ) If IsNumeric(intX) Then 39。確保整數(shù)已輸入。 If (intX).Selected = True Then MsgBox (intX).Text amp。 is selected. Else MsgBox Not selected End If End IfEnd Sub16. SelectedImage 屬性 返回或設(shè)置在相關(guān)的 ImageList 控件中的 ListImage 對(duì)象的索引值或鍵值；當(dāng) Node 對(duì)象被選中時(shí)顯示 ListImage。語(yǔ)法 [ = index]SelectedImage 屬性語(yǔ)法包含下面部分：部分 描述 object 對(duì)象表達(dá)式，其值是“應(yīng)用于”列表中的一個(gè)對(duì)象。 index 整數(shù)或唯一字符串，標(biāo)識(shí)在相關(guān)的 ImageList 控件中的 ListImage 對(duì)象。整數(shù)是 ListImage 對(duì)象的 Index 屬性的值；字符串是 Key 屬性的值。 說(shuō)明如果這個(gè)屬性置為 Null，則使用由 Image 屬性指定的缺省圖形的屏蔽。17. Expanded 屬性 這個(gè)屬性返回或設(shè)置一個(gè)值，該值確定在 TreeView 控件中的 Node 對(duì)象當(dāng)前是被展開(kāi)的還是被折疊的。語(yǔ)法[= boolean]Expanded 屬性的語(yǔ)法包含下面部分：部分 描述 object 對(duì)象表達(dá)式，其值是“應(yīng)用于”列表中的一個(gè)對(duì)象。 boolean 布爾表達(dá)式，其值指定該節(jié)點(diǎn)是被展開(kāi)的還是被折疊的。 boolean 的設(shè)置值是：設(shè)置值 描述 True 該 Node 當(dāng)前被展開(kāi)。 False 該 Node 當(dāng)前被折疊。 說(shuō)明Expanded 屬性示例這個(gè)例子在 TreeView 控件中添加幾個(gè) Node 對(duì)象。在單擊窗體時(shí)，每一個(gè) Node 的 Expanded 屬性均被設(shè)置為 True。為試用此例，要在窗體上安放 TreeView 控件并在窗體的聲明部分粘貼該代碼。運(yùn)行此例，單擊該窗體以展開(kāi)全部 Node 對(duì)象。Private Sub Form_Load() Dim nodX As Node Dim i as Integer = vbFixedSingle 39。顯示邊框。 39。創(chuàng)建一個(gè)根節(jié)點(diǎn)。 Set nodX = (,root,Root) For i = 1 to 5 39。添加五個(gè)子節(jié)點(diǎn)。 Set nodX = (i,tvwChild,Node amp。 CStr(i)) Next iEnd SubPrivate Sub Form_Click() Dim I as Integer For I = 1 to 39。展開(kāi)全部節(jié)點(diǎn)。 (i).Expanded = True Next IEnd Sub18. Bold屬性（Windows 通用控件） 返回或設(shè)置一個(gè)值，確定對(duì)象文本是否為粗體。語(yǔ)法 [= boolean]Bold屬性語(yǔ)法有如下幾部分：部分 描述 object 一個(gè)對(duì)象表達(dá)式，其值是“應(yīng)用于”列表中的一個(gè)對(duì)象。 boolean 一個(gè)布爾表達(dá)式，指定文本是否為粗體，如設(shè)置值所描述的。 設(shè)置值boolean設(shè)置如下:常數(shù) 描述 False (缺省)文本不是粗體。 True 文本是粗體。