关于给目录树的某层加图标，看了程版的视频摸着做的 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于给目录树的某层加图标，看了程版的视频摸着做的

共有6655人关注过本帖树形打印复制链接主题：关于给目录树的某层加图标，看了程版的视频摸着做的

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：558 积分：5937 威望：0 精华：0 注册：2013/7/11 17:39:00

关于给目录树的某层加图标，看了程版的视频摸着做的 发帖心情

Post By：2013/12/3 11:49:00 [只看该作者]

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim sql As String

Dim dt As DataTable

sql = "SELECT 员工ID,员工姓名,所在部门,职位 From {员工基本信息表}"

dt = Functions.Execute("OutSqlCommand",sql)

trv.BuildTree(dt,"所在部门|职位|员工ID")

trv.StopRedraw '停止绘制目录树

For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点

If nd.Level = 2 Then '如果是二级节点

nd.Text = nd.text & " " & nd.DataRow("员工姓名")

nd.IconFile= ProjectPath & "Images\boss.ico"

End If

trv.ResumeRedraw '恢复绘制目录树

怎么样限制只给最后一层加图标呢？？

此主题相关图片如下：qq截图20131203114628.png

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/12/3 11:56:00 [只看该作者]

你的代码没错.

Bin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/12/3 11:57:00 [只看该作者]

你看下你是否在控件属性里设置了所有节点的图标

逛逛

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：1693 积分：12135 威望：0 精华：7 注册：2013/7/11 10:52:00

Post By：2013/12/3 11:59:00 [只看该作者]

定级的话

If nd.Level = 2 Then '如果是二级节点

改成 nd.Level = 4 或几你想要的级次

不定级

判断是否有子级

BIN 说的对，应该是把属性中的图标去掉,但好像是要么全有图标，只是图标不同而已。可以单独设吗？

[此贴子已经被作者于2013-12-3 12:08:15编辑过]

程兴刚

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2013/12/3 12:08:00 [只看该作者]

当给目录树指定图标时，需要给所有节点指定图标，否则，未指定图标的节点将默认您给他指定的最近一个图标(因为目录树节点图标要么都有，要么都没有，一旦部分显示，其他不能为空)，如果您这样：

保存十个图标，命名为1boss.ico、2boss.ico、3boss.ico……10boss.ico，这样您的节点图标支持到十级

您的代码改为这样再试试：

For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点

If nd.Level = 2 Then '如果是二级节点

nd.Text = nd.text & " " & nd.DataRow("员工姓名")

nd.IconFile= ProjectPath & "Images\" & nd.Level+1 & "boss.ico"

End If

程兴刚

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2013/12/3 12:10:00 [只看该作者]

当然，可以在您原代码的基础上：

For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点

If nd.Level = 0 Then '如果是二级节点

nd.Text = nd.text & " " & nd.DataRow("员工姓名")

nd.IconFile= ProjectPath & "Images\bossA.ico"

End If

If nd.Level = 1 Then '如果是二级节点

nd.Text = nd.text & " " & nd.DataRow("员工姓名")

nd.IconFile= ProjectPath & "Images\bossB.ico"

End If

If nd.Level = 2 Then '如果是二级节点

nd.Text = nd.text & " " & nd.DataRow("员工姓名")

nd.IconFile= ProjectPath & "Images\bossC.ico"

End If

'……

总之，您需要从0级节点开始，对所有节点指定图标！

[此贴子已经被作者于2013-12-3 12:11:01编辑过]

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：558 积分：5937 威望：0 精华：0 注册：2013/7/11 17:39:00

Post By：2013/12/3 19:37:00 [只看该作者]

谢射程版，bin,逛逛，排名不分先后！

程兴刚

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2013/12/3 20:06:00 [只看该作者]

呵呵，不留我的名我都没意见！

对了，前两个nd.Text = nd.text & " " & nd.DataRow("员工姓名")可以去掉，应该是最末级才是员工姓名

oaok	小大 9楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：六尾狐帖子：1198 积分：7859 威望：0 精华：0 注册：2013/5/17 14:26:00	Post By：2013/12/3 21:56:00 [只看该作者] 用户已经被屏蔽

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：558 积分：5937 威望：0 精华：0 注册：2013/7/11 17:39:00

Post By：2013/12/7 13:29:00 [只看该作者]

谢程版，搞定了！

'''

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim sql As String

Dim dt As DataTable

sql = "SELECT [用户ID],[用户名],[所属组],[角色],[性别] From {系统管理员表}"

dt = Functions.Execute("OutSqlCommand",sql)

trv.BuildTree(dt,"所属组|角色|用户ID")

trv.StopRedraw '停止绘制目录树

For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点

If nd.Level = 0 Then '如果是一级节点

nd.IconFile= ProjectPath & "Images\0boss.ico"

End If

If nd.Level = 1 Then '如果是二级节点

nd.IconFile= ProjectPath & "Images\1boss.ico"

End If

If nd.Level = 2 Then '如果是三级节点

If nd.DataRow("性别")="男"

nd.IconFile= ProjectPath & "Images\mboss.ico"

Else If nd.DataRow("性别")="女"

nd.IconFile= ProjectPath & "Images\wboss.ico"

End If

nd.Text = nd.text & " " & nd.DataRow("用户名")

End If

trv.ResumeRedraw '恢复绘制目录树

下一主题 >> << 上一主题

总数 12 1 2 下一页

主题：关于给目录树的某层加图标，看了程版的视频摸着做的