VB.NET中的treeview控件

''' summary

站在用戶的角度思考問題，與客戶深入溝通，找到湘東網站設計與湘東網站推廣的解決方案，憑借多年的經驗，讓設計與互聯網技術結合，創造個性化、用戶體驗好的作品，建站類型包括：成都網站設計、成都網站建設、外貿網站建設、企業官網、英文網站、手機端網站、網站推廣、域名與空間、網頁空間、企業郵箱。業務覆蓋湘東地區。

''' 加入菜單子節點

''' /summary

''' param name="tbMenu"菜單表/param

''' param name="tvNode"父節點/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")‘查詢子菜單，按SORTORDER字段排序

Dim strURL As String = String.Empty‘菜單鏈接

For Each DataRow In myRow’循環所有子菜單

Dim MainMenuNode As TreeNode = New TreeNode() With {.Text = DataRow.Item("VALUE"), .NodeID = DataRow.Item("MENU_ID")}'實例化一個子節點

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"‘菜單圖標

End If

MainMenuNode.SingleClickExpand = True’設置單擊菜單時展開子菜單

MainMenuNode.Expanded = True‘默認展開所有菜單

tvNode.Nodes.Add(MainMenuNode)’將子節點添加進父節點

AddNode(tbMenu, MainMenuNode) '利用遞歸生成樹形菜單

Next

End Sub

希望對你有幫助。

asp.net中的樹形表格怎么實現？麻煩高手指點。

樓主您好，樹形菜單要靠JavaScript來實現，所以，您可以從網上找來JavaScript版的或者jquery版的樹形菜單然后放到您的aspx頁面里面

ext3.4樹形表格

樹形表格：（添加了是否選中項，該項可以設置全選的功能）該版本不支持ext.js的高版本，因為extjs高版本已經有store容器。

效果圖：

VB.net怎么制作樹形菜單啊？

你說的“樹形菜單”是指下拉菜單（可以有子菜單）嗎？如果是，VB.net提供了MenuStrip控件，在工具箱里能找到，直接就在對應位置打字就可以了，完全是“所見即所得”。