- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 目录树节点图标问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=185437)
-- 发布时间：2023/2/23 10:42:00
-- 目录树节点图标问题
老师，问题是：首先我双击打开“资产管理”的下一级目录，在单击下一级目录“资产统计管理”或“屋内物品管理”后，在单击合同管理，资产管理的图标不会变为1.png.如下图
此主题相关图片如下：1.jpg
单击节点后代码如下：
[此贴子已经被作者于2023/2/23 10:47:27编辑过]
-- 发布时间：2023/2/23 10:52:00
--
请上传实例测试
-- 发布时间：2023/2/23 11:08:00
--
OK
以下内容是专门发给有点蓝浏览
[此贴子已经被作者于2023/2/23 11:08:46编辑过]
-- 发布时间：2023/2/23 11:43:00
--
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Select Case e.Node.Level
Case 0
For Each n As WinForm.TreeNode In e.Sender.Nodes
If n.Text <> e.node.Text Then
n.IconFile = "1.png"
Else
n.IconFile = "4.png"
End If
Next
Case 1
e.Node.ParentNode.IconFile = "3.png"
For Each n As WinForm.TreeNode In e.Node.ParentNode.Nodes
If n.Text <> e.node.Text Then
n.IconFile = "4.png"
Else
n.IconFile = "1.png"
End If
Next
End Select
[此贴子已经被作者于2023/2/23 11:43:17编辑过]
-- 发布时间：2023/2/23 11:44:00
--
此主题相关图片如下：qq截图20230223114658.jpg
相同的操作，展开节点的图标又没变回1
[此贴子已经被作者于2023/2/23 11:47:43编辑过]
-- 发布时间：2023/2/23 11:55:00
--
指二级子节点？点击第一级的时候，根本就没用代码去处理第二级，自己加上
-- 发布时间：2023/2/23 12:31:00
--
老师，你的代码还是有问题，现在我修改后出现一个新问题，就是窗口打开后，我第一次点击任意的一级节点，节点图标都会变为空白，后面就没问题了，如下图
此主题相关图片如下：11.jpg
代码如下：
[此贴子已经被作者于2023/2/23 12:44:48编辑过]
-- 发布时间：2023/2/23 13:39:00
--
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Select Case e.Node.Level
Case 0
For Each n As WinForm.TreeNode In e.Sender.Nodes
If n.Text <> e.node.Text Then
n.IconFile = "1.png"
For Each n1 As WinForm.TreeNode In n.Nodes
n1.IconFile = "1.png"
Next
Else
n.Ic
End If
Next
Case 1
e.Node.ParentNode.Ic
For Each n As WinForm.TreeNode In e.Node.ParentNode.Nodes
If n.Text <> e.node.Text Then
n.IconFile = "4.png"
Else
n.IconFile = "1.png"
End If
Next
End Select