'设置 Treeview 控件属性。
TreeView1.LineStyle = tvwRootLines ' Linestyle 1 '添加 Node 对象。
Dim nodX As Node '声明 Node 变量。
'带有文本 'Root' 的第一个节点。
Set nodX = TreeView1.Nodes.Add(, , "r", "Root") '下一个节点是节点 1 ("Root") 的子节点。
Set nodX = TreeView1.Nodes.Add("r", tvwChild, "child1", "Child")
TreeView1.LineStyle = tvwRootLines ' Linestyle 1 '添加 Node 对象。
Dim nodX As Node '声明 Node 变量。
'带有文本 'Root' 的第一个节点。
Set nodX = TreeView1.Nodes.Add(, , "r", "Root") '下一个节点是节点 1 ("Root") 的子节点。
Set nodX = TreeView1.Nodes.Add("r", tvwChild, "child1", "Child")
解决方案 »
- 怎么刷网站的点击率?
- 大家给推荐一些好用的可以在线操作office的ActiveX控件
- 想维护一个远端客戶的數据庫,有时需要添加一些新的存储过程,而又不想亲自跑过去,因为太远了.....
- MSComm串口收数不全,怎么办?
- 50分求一段代码,关于savesetting和getsetting的
- 当Datagrid中的数据通过其它控件更新后,如何让他刷新自已,显示最新信息 。
- 我想打印一个picturebox的图片怎么做?有代码吗?
- 问一个非常简单的问题。解决立即给分。
- 列出拨号网络的所有拨号连接
- 如何用函数返回一个结构数组?
- 怎么样解决shell中路径空格问题?怎样判断输入文件是不真的存在?
- 怎么一起删除数据库中的所有记录阿
'树形控件的节点操作都是针对其Nodes集合进行
'Nodes.Add(relative, relationship, key, text, image, selectedimage)
'Add 方法的语法包含下面部分:
'部分 描述
'relative 可选的。已存在的 Node 对象的索引号或键值。新节点与已存在的节点间的关系,可在下一个参数 relationship 中找到。
'relationship 可选的。指定的 Node 对象的相对位置,如设置值中所述。
'key 可选的。唯一的字符串,可用于用 Item 方法检索 Node。
'text 必需的。在 Node 中出现的字符串。
'image 可选的。在关联的 ImageList 控件中的图像的索引。
'selectedimage 可选的。在关联的 ImageList 控件中的图像的索引,在 Node 被选中时显示。
With TreeView1
.Nodes.Add , , "K11", "一级节点" '添加根节点
.Nodes("K11").Expanded = True '展开节点
.Nodes.Add "K11", tvwChild, "K21", "二级节点1"
.Nodes.Add "K21", tvwNext, "K22", "二级节点2"
.Nodes.Add "K21", tvwChild, "K31", "三级节点"
End WithEnd Sub