树控件显示不同图标

时　间:2017-12-11 08:04:06
作　者:大海   ID：42003  城市：深圳
摘　要:树控件显示不同图标
正　文:

做了一个树控件显示不同图标实例:

Private Sub Form_Load()
    Dim i As Integer
    Dim objTree As TreeView
    Dim objNode As Node
    Dim rst As DAO.Recordset
    Dim strParentID As String
    i = 1
    Set objTree = Me.TreeView0.Object
    objTree.Nodes.Clear
    objTree.Font.Name = "微软雅黑"
    objTree.Font.Size = 9
    Set objNode = objTree.Nodes.Add(, , "K", "(物资)", 37, 36)
    objNode.Expanded = True
    Set rst = CurrentDb.OpenRecordset("Select * FROM 物资分类表 orDER BY 编号", , dbReadOnly)
    Do Until rst.EOF
        If i = 38 Then i = 1
        Set objNode = objTree.Nodes.Add("K" & rst!父级, tvwChild, "K" & rst!编号, rst!分类名称, i, 36)
        objNode.Expanded = True
        rst.MoveNext
        i = i + 1
    Loop
    rst.Close
    Set rst = Nothing
    Set objTree = Nothing
    Set objNode = Nothing
End Sub

附   件:

点击下载此附件

图   示: