''' summary
網(wǎng)站建設(shè)哪家好，找成都創(chuàng)新互聯(lián)公司！專(zhuān)注于網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開(kāi)發(fā)、重慶小程序開(kāi)發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶(hù)創(chuàng)新互聯(lián)還提供了堯都免費(fèi)建站歡迎大家使用！
''' 加入菜單子節(jié)點(diǎn)
''' /summary
''' param name="tbMenu"菜單表/param
''' param name="tvNode"父節(jié)點(diǎn)/param
''' remarks/remarks
Private Sub AddNode(ByVal tbMenu As DataTable, ByVal tvNode As TreeNode)
Dim myRow As DataRow() = tbMenu.Select(String.Format("PRMENUID = '{0}'", tvNode.NodeID), "SORTORDER")‘查詢(xún)子菜單，按SORTORDER字段排序
Dim strURL As String = String.Empty‘菜單鏈接
For Each DataRow In myRow’循環(huán)所有子菜單
Dim MainMenuNode As TreeNode = New TreeNode() With {.Text = DataRow.Item("VALUE"), .NodeID = DataRow.Item("MENU_ID")}'實(shí)例化一個(gè)子節(jié)點(diǎn)
If DataRow.Item("URL").ToString.Length 0 Then
strURL = String.Format("{0}?menuid={1}", DataRow.Item("URL"), DataRow.Item("MENUID"))’菜單鏈接
MainMenuNode.NavigateUrl = strURL
MainMenuNode.IconUrl = "../image/leaf.gif"‘菜單圖標(biāo)
End If
MainMenuNode.SingleClickExpand = True’設(shè)置單擊菜單時(shí)展開(kāi)子菜單
MainMenuNode.Expanded = True‘默認(rèn)展開(kāi)所有菜單
tvNode.Nodes.Add(MainMenuNode)’將子節(jié)點(diǎn)添加進(jìn)父節(jié)點(diǎn)
AddNode(tbMenu, MainMenuNode) '利用遞歸生成樹(shù)形菜單
Next
End Sub
希望對(duì)你有幫助。
由于每個(gè) TreeNode 都可以包含其他 TreeNode 對(duì)象的集合，您可能會(huì)在循環(huán)訪問(wèn)集合時(shí)覺(jué)得很難確定自己在樹(shù)結(jié)構(gòu)中的位置。您可以使用 PathSeparator 字符串值來(lái)分析 TreeNode.FullPath 字符串，以確定 TreeNode 標(biāo)簽的起始和終止位置。
可以在樹(shù)節(jié)點(diǎn)旁顯示圖像，方法是將一個(gè) ImageList 分配給 ImageList 屬性，然后通過(guò)引用 Image 在 ImageList 中的索引值來(lái)分配該 Image。使用下面的屬性分配圖像：
將 ImageIndex 屬性設(shè)置為當(dāng)樹(shù)節(jié)點(diǎn)未選定時(shí)所顯示的 Image 的索引值。
將 SelectedImageIndex 屬性設(shè)置為當(dāng)樹(shù)節(jié)點(diǎn)被選定時(shí)要顯示的 Image 的索引值。
ImageIndex 和 SelectedImageIndex 屬性值所引用的圖像是所有分配給 Nodes 集合的樹(shù)節(jié)點(diǎn)顯示的默認(rèn)圖像。每個(gè)樹(shù)節(jié)點(diǎn)都可以通過(guò)設(shè)置 TreeNode.ImageIndex 和 TreeNode.SelectedImageIndex 屬性來(lái)取代默認(rèn)的圖像。
樹(shù)節(jié)點(diǎn)可以展開(kāi)，以顯示下一級(jí)子樹(shù)節(jié)點(diǎn)。用戶(hù)可以在 TreeNode 旁顯示加號(hào) (+) 按鈕時(shí)通過(guò)單擊加號(hào) (+) 按鈕來(lái)展開(kāi) TreeNode，或者可以通過(guò)調(diào)用 TreeNode.Expand 方法來(lái)展開(kāi) TreeNode。若要展開(kāi) Nodes 集合中的所有子樹(shù)節(jié)點(diǎn)級(jí)別，請(qǐng)調(diào)用 ExpandAll 方法。若要折疊子 TreeNode 級(jí)別，可以調(diào)用 TreeNode.Collapse 方法，也可以在 TreeNode 旁顯示減號(hào) (-) 按鈕時(shí)按減號(hào) (-) 按鈕。還可以通過(guò)調(diào)用 TreeNode.Toggle 方法在展開(kāi)和折疊狀態(tài)之間切換。
樹(shù)節(jié)點(diǎn)可以選擇性地顯示復(fù)選框。若要顯示復(fù)選框，請(qǐng)將 TreeView 的 CheckBoxes 屬性設(shè)置為 true。對(duì)于處于選中狀態(tài)的樹(shù)節(jié)點(diǎn)，Checked 屬性設(shè)置為 true。
注意
從 BeforeCheck 或 AfterCheck 事件內(nèi)設(shè)置 TreeNode.Checked 屬性將導(dǎo)致該事件被多次引發(fā)并可能產(chǎn)生意外行為。例如，您可以在遞歸更新子節(jié)點(diǎn)時(shí)在事件處理程序中設(shè)置 Checked 屬性，以便用戶(hù)不必逐個(gè)展開(kāi)并選中每個(gè)節(jié)點(diǎn)。如果未將 TreeViewEventArgs 的 Action 屬性設(shè)置為 TreeViewAction.Unknown，則若要防止該事件被多次引發(fā)，需為僅執(zhí)行遞歸代碼的事件處理程序添加邏輯。有關(guān)如何進(jìn)行此操作的示例，請(qǐng)參見(jiàn) AfterCheck 或 BeforeCheck 事件的示例部分。
通過(guò)設(shè)置 TreeView 控件的一些顯示和樣式屬性，可以更改此控件的外觀。如果將 ShowPlusMinus 設(shè)置為 true，則會(huì)分別在每個(gè)可展開(kāi)或折疊的 TreeNode 旁顯示加號(hào)或減號(hào)按鈕。如果將 ShowRootLines 屬性設(shè)置為 true，TreeView 則會(huì)顯示聯(lián)接所有根樹(shù)節(jié)點(diǎn)之間的連線。通過(guò)將 ShowLines 屬性設(shè)置為 true，可以顯示子樹(shù)節(jié)點(diǎn)與其根節(jié)點(diǎn)之間的連線。如果將 HotTracking 屬性設(shè)置為 true，那么當(dāng)鼠標(biāo)指針移過(guò)樹(shù)節(jié)點(diǎn)標(biāo)簽時(shí)，樹(shù)節(jié)點(diǎn)標(biāo)簽的外觀將發(fā)生變化。如果啟用熱跟蹤，樹(shù)節(jié)點(diǎn)標(biāo)簽將具有超鏈接的外觀。也可以完全自定義 TreeView 控件的外觀。若要執(zhí)行此操作，請(qǐng)將 DrawMode 屬性設(shè)置為 TreeViewDrawMode.Normal 以外的值并處理 DrawNode 事件。
注意
在運(yùn)行時(shí)設(shè)置 CheckBoxes、Scrollable、ImageIndex 和 SelectedImageIndex 屬性時(shí)，將重新創(chuàng)建 TreeView 句柄（請(qǐng)參見(jiàn) Control.RecreateHandle）以更新控件的外觀。這將折疊除選定的 TreeNode 之外的所有樹(shù)節(jié)點(diǎn)。
下面的代碼示例闡釋了如何使用 TreeView 控件。
Private Sub InitializeTreeView()
treeView1.BeginUpdate()
treeView1.Nodes.Add("Parent")
treeView1.Nodes(0).Nodes.Add("Child 1")
treeView1.Nodes(0).Nodes.Add("Child 2")
treeView1.Nodes(0).Nodes(1).Nodes.Add("Grandchild")
treeView1.Nodes(0).Nodes(1).Nodes(0).Nodes.Add("Great Grandchild")
treeView1.EndUpdate()
End Sub
From MSDN
打開(kāi)VB企業(yè)版，不要選新鍵EXE，選那個(gè)VB應(yīng)用程序向?qū)?/p>
下一步
選第三個(gè)，可以在左邊看到是樹(shù)狀圖的工程，完成
就可以看到完整的樹(shù)狀圖的使用方法
你說(shuō)的“樹(shù)形菜單”是指下拉菜單（可以有子菜單）嗎？如果是，VB.net提供了MenuStrip控件，在工具箱里能找到，直接就在對(duì)應(yīng)位置打字就可以了，完全是“所見(jiàn)即所得”。
重慶分公司
重慶分公司
