[已解决]VBA中如何使用 treeview控件

向前650809 · 发表于 2022-3-27 11:00

在VBA窗体中加入treeview控件后，在控件中如何加入复选框，如何设置选中节点后，就选中了它的所有子项，如何设置出有加减号的效果，如何获取选项是否被选中。
请网友指导，谢谢。

最佳答案

月排行榜 / 总排行榜

zjdh

2022-3-27 17:50

本帖最后由 zjdh 于 2022-3-27 17:53 编辑

给你一个例子，除了选中节点即选中全部子节点，其余你需要的项目都包含了，自己去研究吧。

TreeView.rar (25.88 KB, 下载次数: 28)

zjdh · 发表于 2022-3-27 17:50

本帖最后由 zjdh 于 2022-3-27 17:53 编辑

给你一个例子，除了选中节点即选中全部子节点，其余你需要的项目都包含了，自己去研究吧。

TreeView.rar (25.88 KB, 下载次数: 28)

向前650809 · 发表于 2022-3-27 19:22

谢谢
想选中节点时，所有子项都自动选中，取消一个子项时，父节点选中就被取消，如何设置（如何写出代码）

zjdh · 发表于 2022-3-27 21:31

Private Sub Treeview1_NodeCheck(ByVal Node As MSComctlLib.Node)
'复选框事件，选中节点，其子节点全部选中。
KY = Node.Key
For Each Nde In TreeView1.Nodes
If InStr(Nde.FullPath, KY & "\") Then Nde.Checked = True
Next
End Sub

zjdh · 发表于 2022-3-27 21:45

本帖最后由 zjdh 于 2022-3-27 21:46 编辑

又有新要求：
Private Sub Treeview1_NodeCheck(ByVal Node As MSComctlLib.Node) '复选框事件
'选中节点，则其所有子节点全部选中
KY = Node.Key
For Each Nde In TreeView1.Nodes
      If InStr(Nde.FullPath, KY & "\") Then Nde.Checked = True
Next
'子节点取消选中，则其父节点也取消
If Node.Checked = False Then
      KY = Split(Node.FullPath, "\")(0)
      TreeView1.Nodes(KY).Checked = False
End If
End Sub

向前650809 · 发表于 2022-3-28 11:15

本帖最后由向前650809 于 2022-3-28 11:17 编辑

代码
KY = Node.Key
是何意KY表达什么
谢谢

zjdh · 发表于 2022-3-29 16:54

KY 就是个变量啊，可由任意字符取代。

向前650809 · 发表于 2022-3-30 14:13

本帖最后由向前650809 于 2022-3-30 14:23 编辑

Node.Key
表达何意如何设置代码，使折叠展开时，节点处显示+－号
出现下面图的效果

zjdh · 发表于 2022-3-31 15:45

TreeView1.LineStyle = tvwRootLines '显示根节点连线

zjdh · 发表于 2022-3-31 16:35

本帖最后由 zjdh 于 2022-3-31 16:37 编辑

在另一个帖中回复

		自动登录	找回密码
密码			注册