高分！如何用vb.net做一个树型菜单

如何用VB.NET做一个树型菜单，请说的具体点，不需要挂数据库

13 个解决方案

#1

如果不用绑定数据库,很简单呀!

拖一个树型控件到窗体,然后选中树型控件,在属性窗口中找到"Nodes",进到对话框,通过"添加根","添加子级"...就行!

#2

ydsunny(小强)说地是

要绑定数据库,很简单呀!

#3

树型菜单需要动态么？

#4

不加数据库，很简单，直接托个treeview控件，编辑Nodes信息。呵呵

#5

那就是链接时显示一个静态页面呢？
怎么加？

#6

不知道LZ说什么呀
不用绑定数据库直接拖一个树型控件到窗体,然后选中树型控件,在属性窗口中找到"Nodes",进到对话框,通过"添加根","添加子级"就搞定了!
即使要绑定数据库也不是很难的事情
DataAdapter.SelectCommand = New SqlClient.SqlCommand("", Connection)
      SPDataAdapter.Fill(SPDataSet, "table1")
      Dim Node As TreeNode
      TreeView1.Nodes.Add("a")
      Dim i As Integer
      For i = 0 To DataSet.Tables("table1").Rows.Count - 1
         Node = New TreeNode(Trim(DataSet.Tables("table1").Rows(i).Item(0)) & " " & Trim(DataSet.Tables("table1").Rows(i).Item(0)))
         TreeView1.Nodes(0).Nodes.Add(Node)
         TreeView1.Nodes(0).Expand()
      Next
            For i = 0 To DataSet.Tables("SBFL").Rows.Count - 1
         Dim myNodeCollection As TreeNodeCollection = TreeView1.Nodes(0).Nodes
         Dim myCount As Integer = myNodeCollection.Count
         Dim j As Integer
         For j = 0 To myCount - 1
            Dim nod As String = TreeView1.Nodes(0).Nodes(j).Text
            If nod.Substring(0, nod.LastIndexOf(" ")) = Trim(DataSet.Tables("table1").Rows(i).Item(0) & "") And Trim(DataSet.Tables("table1").Rows(i).Item(1) & "") <> "" Then
               TreeView1.Nodes(0).Nodes(j).Nodes.Add(Trim(DataSet.Tables("table1").Rows(i).Item(1)).ToString)
            End If

         Next
      Next

#7

可能我说的不是很明白，就是点击子结点时可以显示另一个页面，像链接那样的
详细说说，谢谢

#8

楼主是在WEB里吗?!

操作也差不多,拖一个TreeView到页面,然后弹出的对话框中"编辑节点",就可以建一棵树了.建节点时,有一个NavigateUrl属性,就是设置连接页面的.

#9

treeview空间就可以，只需要设置属性就可以了

不过用js实现起来更好些，起码不刷新

#10

上面的都说了.............

#11

treeview控件

用递归

#12

用XML就可以了

#13

同上

#1