VB中treeview用法例子

最新推荐文章于 2024-01-09 18:05:28 发布

原创最新推荐文章于 2024-01-09 18:05:28 发布 · 1.6k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vb #listview #报表 #report

VB 专栏收录该内容

7 篇文章

订阅专栏

这篇博客介绍了如何在VB中使用TreeView控件来创建和管理节点，包括添加子节点、展开节点以及ListView的相关操作。示例代码展示了如何添加不同类型的节点，如‘Stock’、‘SProduct’和‘Business’，以及处理节点的展开和选择事件。

   Set nod = TreeView1.Nodes.Add("Stock", tvwChild, "SMaterial", "01(原料)", 4, 2)
    Set nod = TreeView1.Nodes.Add("SMaterial", tvwChild, "SMImp", "01(内销用料件)", 4, 2)
    Set nod = TreeView1.Nodes.Add("SMaterial", tvwChild, "SMExp", "02(外销用料件)", 4, 2)
    Set nod = TreeView1.Nodes.Add("SMaterial", tvwChild, "SMOth", "03(其他用料件)", 4, 2)
Set nod = TreeView1.Nodes.Add("Stock", tvwChild, "SProduct", "02(成品)", 4, 2)
    Set nod = TreeView1.Nodes.Add("SProduct", tvwChild, "SPImp", "01(内销成品)", 4, 2)
    Set nod = TreeView1.Nodes.Add("SProduct", tvwChild, "SPExp", "02(外销成品)", 4, 2)

Set nod = TreeView1.Nodes.Add("Root", tvwChild, "Business", "业务情况", 4, 2) '一级-业务情况

Set nod = TreeView1.Nodes.Add("Root", tvwChild, "Report", "报表", 4, 2) '一级-报表

nod.Expanded = True '一个结点打开
nod.EnsureVisible '一个结点打开

'所有结点打开
For i = 1 To TVLeft.Nodes.Count
TreeView1.Nodes(i).Expanded = True
Next

归结: Set nod = ListView1.Nodes.Add(, , "Root", "查询", 1) '设置ROOT

之后: Set nod = ListView1.Nodes.Add("<上级ID>", , "<自己的ID>", "<名称>", <imagelist.index(未选中)>,<imagelist.index(选中)>)

引申用法了:
(1)双击Nod,结点不会缩放
TreeView1.SelectedItem.Expanded = True