下面是简单的添加删除方法，
Option Explicit
‘添加项目
Private Sub Command1_Click()
Dim nodx As Node
Set nodx = TreeView1.Nodes.Add(, , "zf", "紫风无痕关系（双击收起）")
Set nodx = TreeView1.Nodes.Add("zf", tvwChild, "zfwife", "老婆")
Set nodx = TreeView1.Nodes.Add("zf", tvwChild, "zflover", "情人")
Set nodx = TreeView1.Nodes.Add("zf", tvwChild, "zffriend", "朋友")
Set nodx = TreeView1.Nodes.Add("zfwife", tvwChild, "lp1", "大老婆")
Set nodx = TreeView1.Nodes.Add("zfwife", tvwChild, "lp2", "二老婆")
Set nodx = TreeView1.Nodes.Add("zfwife", tvwChild, "lp3", "三老婆")
Set nodx = TreeView1.Nodes.Add("zfwife", tvwChild, "lp4", "四老婆")
Set nodx = TreeView1.Nodes.Add("zfwife", tvwChild, "lp5", "五老婆")
Set nodx = TreeView1.Nodes.Add("zflover", tvwChild, "qr1", "1号情人")
Set nodx = TreeView1.Nodes.Add("zflover", tvwChild, "qr2", "2号情人")
Set nodx = TreeView1.Nodes.Add("zflover", tvwChild, "qr3", "3号情人")
Set nodx = TreeView1.Nodes.Add("zffriend", tvwChild, "py1", "张三")
Set nodx = TreeView1.Nodes.Add("zffriend", tvwChild, "py2", "李四")
Set nodx = TreeView1.Nodes.Add("zffriend", tvwChild, "py3", "王麻子")
Set nodx = TreeView1.Nodes.Add("py1", tvwChild, "pylp1", "张三的老婆")
Set nodx = TreeView1.Nodes.Add("py1", tvwChild, "pylp2", "张三的孩子")
nodx.EnsureVisible
End Sub
'删除代码
Private Sub Command2_Click()
MsgBox ("将要删除" & TreeView1.SelectedItem.Text)
TreeView1.Nodes.Remove (TreeView1.SelectedItem.Index)
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
MsgBox ("你选择了" & TreeView1.SelectedItem.Text)
End Sub
vb.net中TreeView控件的使用
ItemHeight 属性 设置树视图控件中每个树节点的高度 Nodes 属性 获取分配给树视图控件的树节点集合 这个属性是TreeView 控件最重要的属性之一 我们下文将会对它进行更加的详细的说明 PathSeparator 属性 树节点路径(TreeNode FullPath 属性)所使用的分隔符串 默认为反斜杠字符 (\\) 树节点路径包括一组由 ...
vb中怎样实现多列树形结构
树状结构使用treeview实现，控件添加方法：右击“工具箱”-“部件”-microsoft windows common controls 6.0-确定，应用 下面是简单的添加删除方法， Option Explicit ‘添加项目 Private Sub Command1_Click() Dim nodx As Node Set nodx = TreeView.
VB的树状控件怎们弄
'这里也可以使用动态数组，但在下面的Form_Load过程必须使用ReDim定义数组 Private Sub Form_Load()strSQL = "select * from 数据表"RS.Open strSQL, db, 3, 3 Set Nodx = TreeView1.Nodes.Add()Nodx.Text = "总标题"Nodx.Image = "TP1"'Image1控件应该显示的图形编号 TreeView1.LabelE...
VB的树状控件怎么弄
打开VB企业版，不要选新键EXE，选那个VB应用程序向导 下一步 选第三个，可以在左边看到是树状图的工程，完成 就可以看到完整的树状图的使用方法
VB中的treeview和listview控件如何使用?
使用 TreeView 控件 TreeView TreeView 控件可以用来显示具有层次结构的数据，例如组织树、索引项、磁盘中的文件和目录等。图 2.40 典型的 TreeView 可能的用途 创建用户可以操作的组织树。创建能够显示至少两层或更多层的数据库树。设置 Node 对象属性 “树”由一些层叠的“节点”分支构成，每个节点...
vb怎么用TreeView控件列出本地机器上的所有文件夹和文件
'加入树形列表中 With ListObj With .Nodes .Add "a0", 4, Files(AB), Files(AB), "Menu"End With End With sPath = Dir '查找下一个文件 DoEvents '让出控制权 Loop sPath = Dir(Path & "\\", vbDirectory) '查找第一个文件夹 Do While Len(sPath) '循环到没有文件夹为止 If Left...
vb.net中treeview控件用法
在运行时设置 CheckBoxes、Scrollable、ImageIndex 和 SelectedImageIndex 属性时，将重新创建 TreeView 句柄（请参见 Control.RecreateHandle）以更新控件的外观。这将折叠除选定的 TreeNode 之外的所有树节点。下面的代码示例阐释了如何使用 TreeView 控件。Private Sub InitializeTreeView()treeView1.Begin...
VB编程中TreeVieW怎么使用?
在 `Form_Load()` 事件处理程序中，设置服务器名、数据库名、用户名和密码，初始化 `ADODB.Recordset` 对象 `rsTree`，并使用 SQL 查询获取数据。根据查询结果，逐行添加 TreeView 和 ListView 控件的节点和列表项。当用户点击 TreeView 中的节点时，`TvwTree_NodeClick()` 事件处理程序执行。首先...
VB中如何使用TreeView控件.
下面的示例将 TreeView 控件绑定到 Biblio 数据库,该数据库可以在 Visual Basic CD 中找到。该应用实例将 Publishers 表作为树节点的第一层。如果一个出版商对应于一个或多个书名,则这些书名将作为该出版商的子节点加入树中。图2.42 与数据绑定的 TreeVew 控件下面的代码用到了如下对象: Data Access Object ...
用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 + "...
