主题：目录树加图标

 节点.IconFile = "test.ico"

 

http://www.foxtable.com/help/topics/0901.htm

 

参考代码

 

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "数据库"
cmd.CommandText = "Select  学期,班级,a.学生姓名,性别 From {缴费信息} a inner join {学生信息} b on a.学生姓名 = b.学生姓名 where 学期 = '2014年(秋)'"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "学期|班级|学生姓名")

Dim tr As WinForm.TreeView
tr = Forms("窗口1").Controls("TreeView1")
For Each nd As WinForm.TreeNode In tr.AllNodes
    If nd.Level = 2 Then
        If nd.DataRow("性别") = "男" Then
            nd.Ic
        Else
            nd.Ic
        End If
    Else
        nd.Ic
    End If
Next

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "数据库"
cmd.CommandText = "Select  学期,班级,a.学生姓名,性别 From {缴费信息} a inner join {学生信息} b on a.学生姓名 = b.学生姓名 where 学期 = '2014年(秋)'"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "学期|班级|学生姓名")

Dim tr As WinForm.TreeView
tr = Forms("窗口1").Controls("TreeView1")
For Each nd As WinForm.TreeNode In tr.AllNodes
    If nd.Level = 2 Then
        If nd.DataRow("性别") = "男" Then
            nd.IconFile = "Man.ico"
        Else
            nd.IconFile = "Woman.ico"
        End If
    Else
        nd.Ic
    End If
Next

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "数据库"
cmd.CommandText = "Select  学期,班级,a.学生姓名,性别 From {缴费信息} a inner join {学生信息} b on a.学生姓名 = b.学生姓名 where 学期 = '2014年(秋)'"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "学期|班级|学生姓名")

Dim tr As WinForm.TreeView
tr = Forms("窗口1").Controls("TreeView1")
For Each nd As WinForm.TreeNode In tr.AllNodes
    If nd.Level = 2 Then
        If nd.DataRow("性别") = "男" Then
            nd.IconFile = "Man.ico"
        Else
            nd.IconFile = "Woman.ico"
        End If
    Else 
         nd.IconFile = "Man.ico"
    End If
Next

 不能，必须也给其他节点也加入图标，当然，你可以用一个透明的图标。

 那你就加入对应的图标，然后改一下代码。