以文本方式查看主题

-  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=148423)
--  作者：81538475
--  发布时间：2020/4/7 17:28:00
--  [求助]自定义的加载树怎么再节点前面加图标呢
如题
--  作者：有点蓝
--  发布时间：2020/4/7 17:36:00
--  
参考：http://www.foxtable.com/webhelp/topics/0901.htm
--  作者：81538475
--  发布时间：2020/4/10 9:43:00
--  
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("XMFP", "代号|项目名称")
trv.Nodes.Insert("显示所有行",0)
\'Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
Dim nd As WinForm.TreeNode
For Each nd In trv.AllNodes
    Select Case nd.Level
        Case 0
            If nd.Text <> "显示所有行" Then
               nd.Ic onF ile ="Pa ndo ra_p_48p x.png"            
            End If
            
        Case 1
            nd.Icon Fi le ="P an dora_p_48px.ico"
             
            
    End Select
Next
目前希望显示所有行前面是不加图标的.代码应该如何修改呢
[此贴子已经被作者于2020/4/10 9:43:41编辑过]
--  作者：有点蓝
--  发布时间：2020/4/10 10:06:00
--  
If nd.Text = "显示所有行" Then
nd.IconFile = nothing
else
nd.IconFile ="P an dora_p_48px.ico"          
End If
[此贴子已经被作者于2020/4/10 10:06:20编辑过]