VB.net怎么制作树形菜单啊？

你说的“树形菜单”是指下拉菜单（可以有子菜单）吗？如果是，VB.net提供了MenuStrip控件，在工具箱里能找到，直接就在对应位置打字就可以了，完全是“所见即所得”。

创新互联主营屏山网站建设的网络公司,主营网站建设方案,成都app开发,屏山h5小程序开发搭建,屏山网站营销推广欢迎屏山等地区企业咨询

vb.net的treeview使用

Nodes 集合包含分配给 TreeView 控件的所有 TreeNode 对象。此集合中的树节点称作根树节点。随后添加到根树节点上的任何树节点称作子节点。由于每个 TreeNode 都可以包含其他 TreeNode 对象的集合，您可能会在循环访问集合时觉得很难确定自己在树结构中的位置。您可以使用 PathSeparator 字符串值来分析 TreeNode.FullPath 字符串，以确定 TreeNode 标签的起始和终止位置。

可以在树节点旁显示图像，方法是将一个 ImageList 分配给 ImageList 属性，然后通过引用 Image 在 ImageList 中的索引值来分配该 Image。使用下面的属性分配图像：

将 ImageIndex 属性设置为当树节点未选定时所显示的 Image 的索引值。

将 SelectedImageIndex 属性设置为当树节点被选定时要显示的 Image 的索引值。

ImageIndex 和 SelectedImageIndex 属性值所引用的图像是所有分配给 Nodes 集合的树节点显示的默认图像。每个树节点都可以通过设置 TreeNode.ImageIndex 和 TreeNode.SelectedImageIndex 属性来取代默认的图像。

树节点可以展开，以显示下一级子树节点。用户可以在 TreeNode 旁显示加号 (+) 按钮时通过单击加号 (+) 按钮来展开 TreeNode，或者可以通过调用 TreeNode.Expand 方法来展开 TreeNode。若要展开 Nodes 集合中的所有子树节点级别，请调用 ExpandAll 方法。若要折叠子 TreeNode 级别，可以调用 TreeNode.Collapse 方法，也可以在 TreeNode 旁显示减号 (-) 按钮时按减号 (-) 按钮。还可以通过调用 TreeNode.Toggle 方法在展开和折叠状态之间切换。

树节点可以选择性地显示复选框。若要显示复选框，请将 TreeView 的 CheckBoxes 属性设置为 true。对于处于选中状态的树节点，Checked 属性设置为 true。

注意

从 BeforeCheck 或 AfterCheck 事件内设置 TreeNode.Checked 属性将导致该事件被多次引发并可能产生意外行为。例如，您可以在递归更新子节点时在事件处理程序中设置 Checked 属性，以便用户不必逐个展开并选中每个节点。如果未将 TreeViewEventArgs 的 Action 属性设置为 TreeViewAction.Unknown，则若要防止该事件被多次引发，需为仅执行递归代码的事件处理程序添加逻辑。有关如何进行此操作的示例，请参见 AfterCheck 或 BeforeCheck 事件的示例部分。

通过设置 TreeView 控件的一些显示和样式属性，可以更改此控件的外观。如果将 ShowPlusMinus 设置为 true，则会分别在每个可展开或折叠的 TreeNode 旁显示加号或减号按钮。如果将 ShowRootLines 属性设置为 true，TreeView 则会显示联接所有根树节点之间的连线。通过将 ShowLines 属性设置为 true，可以显示子树节点与其根节点之间的连线。如果将 HotTracking 属性设置为 true，那么当鼠标指针移过树节点标签时，树节点标签的外观将发生变化。如果启用热跟踪，树节点标签将具有超链接的外观。也可以完全自定义 TreeView 控件的外观。若要执行此操作，请将 DrawMode 属性设置为 TreeViewDrawMode.Normal 以外的值并处理 DrawNode 事件。

注意

在运行时设置 CheckBoxes、Scrollable、ImageIndex 和 SelectedImageIndex 属性时，将重新创建 TreeView 句柄（请参见 Control.RecreateHandle）以更新控件的外观。这将折叠除选定的 TreeNode 之外的所有树节点。

下面的代码示例阐释了如何使用 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

用vb和数据库做系统时，在主窗体上想做一个树状目录，用treeview和image两个控件要怎么做啊

TreeView 中要使用图片,一般和 ImageList 控件结合.

如下图:

附件中包含了Form8 及所要用的Access数据库db8.mdb

重要的程序有:

1、Form_Load() 中设置数据控件Data 及给TreeView 加载数据：

Private Sub Form_Load()

Dim snRes As DAO.Recordset

Dim N As Node

dataName = App.Path + "\db8.mdb"

With fData

.DatabaseName = dataName

.Connect = "Access"

.RecordSource = "SELECT * FROM T3011 ORDER BY F0,F1 "

.Refresh

End With

DoEvents

Set snRes = fData.Database.OpenRecordset("SELECT F1,F2 FROM T301 WHERE F1'CMPY'", dbOpenSnapshot)

TreeLB.Nodes.Clear

Set N = TreeLB.Nodes.Add(, , "R", "分店资料", "ImgR")

Do While Not snRes.EOF

Set N = TreeLB.Nodes.Add("R", tvwChild, "I_" + Trim(snRes(0)), Trim(snRes(1)), "ImgS")

snRes.MoveNext

Loop

TreeLB.Nodes(1).Expanded = True

End Sub

2、当点击TreeView 时系统找到对应的“分店营业员”资料给Data控件显示：

Private Sub TreeLB_NodeClick(ByVal Node As MSComctlLib.Node)

On Error GoTo NodeClickErr

Dim MySQL$

If InStr(Node.Key, "R") 0 Then

fData.RecordSource = "SELECT * FROM T3011 ORDER BY F1"

fData.Refresh

DoEvents

Exit Sub

ElseIf InStr(Node.Key, "I_") 0 Then

fData.RecordSource = "SELECT * FROM T3011 WHERE F0='" + Trim(Mid$(Trim(Node.Key), InStr(Node.Key, "I_") + 2)) + "' ORDER BY F1"

fData.Refresh

DoEvents

Exit Sub

ElseIf InStr(Node.Key, "C_") 0 Then

MySQL$ = "F0='" + Mid$(Node.Key, 1, InStr(Node.Key, "C_") - 1) + "' "

MySQL$ = MySQL$ + "AND F1='" + Trim(Mid$(Trim(Node.Key), InStr(Node.Key, "C_") + 2)) + "' "

fData.Recordset.FindFirst MySQL$

DoEvents

End If

Exit Sub

NodeClickErr:

MsgBox "记录下面错误信息：" + Chr(13) + Error$, 48, "重要提示"

Err = 0

Exit Sub

End Sub

详细资料下载后运行并研究....

vb.net从数据库读取信息填充treeview做成层次目录怎么做

给你一段我曾经写的代码，主要是生成TreeView的节点！有什么不懂的地方你就提！

Public Sub InitializeTreeView(ByVal strvXL As TreeView, ByVal vrsRecordTwo As DataSet)

Dim treBaseNodeOne As TreeNode

Dim treBaseNodeTwo As TreeNode

Dim strDWDM As String

m_rsRecordTwo = g_clsSybase.SelectSC_PD_SBCSB1()

'查找供电局信息

g_clsSybase.SelectRS_ZZJG_ZZJGDMB(m_rsRecordOne)

'添加根节点

Do While m_rsRecordOne.Read

strDWDM = m_rsRecordOne.GetString(0) '获取单位代码

treBaseNodeOne = New TreeNode

treBaseNodeOne.Text = m_rsRecordOne.GetString(1).Trim() '获取单位名称

treBaseNodeOne.Name = m_rsRecordOne.GetString(1)

treBaseNodeOne.Tag = ""

strvXL.Nodes.Add(treBaseNodeOne)

'添加树结构第二层

Dim drsTwo() As DataRow

drsTwo = m_rsRecordTwo.Tables(0).Select("SSDW='" strDWDM "' and SC__XLBM is null")

For Each dr As DataRow In drsTwo

treBaseNodeTwo = New TreeNode

treBaseNodeTwo.Text = dr.Item("XLMC").ToString.Trim

treBaseNodeTwo.Name = dr.Item("XLMC")

treBaseNodeTwo.Tag = dr.Item("XLBM")

treBaseNodeOne.Nodes.Add(treBaseNodeTwo)

Next

Loop

m_rsRecordOne.Close()

End Sub

vB里树形目录列表 有“+”和“-”分别代表展开和收起，怎么设置成打开窗体后自动展开窗体内的树形目录？

For i = 1 To TreeView1.Nodes.Count

TreeView1.Nodes(i).Expanded = True

Next i

Vb.NET 注册表 新建目录树

Dim Reg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser 'HKEY_CURRENT_USER

Reg.OpenSubKey("\1\2\3\4\5\6\7", True) '在HKEY_CURRENT_USER下新建1\2\3\4\5\6\7的项

希望能对你有所启发和帮助。

当前文章：vb.net树状目录的简单介绍
新闻来源：http://kswjz.com/article/hpijco.html