以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73996)

--  作者:rjh4078
--  发布时间:2015/8/31 10:07:00
--  目录树问题
 动态生成目录树时 如何给不同节点设置不同图标?

--  作者:大红袍
--  发布时间:2015/8/31 10:11:00
--  
 Dim tr  As WinForm.TreeView
tr = Forms("窗口1").Controls("TreeView1")
For Each nd As WinForm.TreeNode In tr.AllNodes
    If nd.Level = 0 Then
        nd.IconFile = "d:\\test.ico"
    Else If nd.level = 1 Then
        nd.IconFile = "d:\\test.ico"
    End If
Next

--  作者:rjh4078
--  发布时间:2015/8/31 10:17:00
--  
 这个我会 我的意思是   根目录比如有A B C 三个 每个图标不一样 一级目录1 2 3 每个也不一样 我是想在一张表里做好目录层级和对应的图形字典 然后在对应的窗口直接根据这张表生成目录树

--  作者:大红袍
--  发布时间:2015/8/31 10:17:00
--  
那你就根据name或者text设置图标。
--  作者:rjh4078
--  发布时间:2015/8/31 11:17:00
--  
 非常感谢大红袍老师提醒,我试验下

--  作者:blackzhu
--  发布时间:2015/8/31 13:28:00
--  
.nodes.add("xxx","xxx",图标)
--  作者:rjh4078
--  发布时间:2015/8/31 13:46:00
--  
以下是引用blackzhu在2015/8/31 13:28:00的发言:
.nodes.add("xxx","xxx",图标)


图片点击可在新窗口打开查看