Access数据库培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

树控件显示不同图标

时 间: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


附   件:


点击下载此附件


图   示:



Access软件网QQ交流群 (群号:297018933)       access源码网店

最新评论 查看更多评论(5)

2018/4/30 7:15:24mabaor
不让修改是什么意思,一保存就出错

2017/12/14 11:56:47zyq

2017/12/11 17:31:03大海
是的

2017/12/11 16:54:27麥田
2017/12/11 10:26:26huashanshihu: 树形控件在什么地方找呢。 = ActiveX控件里面

2017/12/11 10:26:26huashanshihu
树形控件在什么地方找呢。

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助