树菜单添加不同图标及字体添加加颜色-大海
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


树菜单添加不同图标及字体添加加颜色

发表时间:2017/12/12 7:46:31 评论(5) 浏览(2261)  评论 | 加入收藏 | 复制
   
摘 要:树菜单添加不同图标及字体添加加颜色
正 文:

树菜单添加不同图标及字体添加加颜色:

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
    Call 树菜单加颜色
End Sub
Sub 树菜单加颜色()
    Dim objTree As TreeView
    Dim objNode As Node
    Dim k As Integer
    On Error Resume Next
    Set objTree = Me.TreeView0.Object
    For Each objNode In objTree.Nodes
        k = (Rnd() * 9)
        objNode.ForeColor = 随机选择(k)
        '        objTree.Font.Size = 13
        '        objTree.Font.Bold = True
    Next
    Set objTree = Nothing
End Sub
Function 随机选择(k As Integer)
    On Error Resume Next
    Dim ColorValue As Long
    Select Case k
    Case 0
        ColorValue = 0
    Case 1
        ColorValue = 255
    Case 2
        ColorValue = 65280
    Case 3
        ColorValue = 16711680
    Case 4
        ColorValue = 16711935
    Case 5
        ColorValue = 16776960
    Case 6
        ColorValue = 8388608
    Case 7
        ColorValue = 6684774
    Case 8
        ColorValue = 3355443
    Case 9
        ColorValue = 128
    End Select
    随机选择 = ColorValue
End Function

附   件:

点击下载此附件


图   示:


Access软件网交流QQ群(群号:198465573)
 
 相关文章
一个主窗体上几行代码栽种多颗棵树,TreeView动态数据源  【yuhong  2016/11/12】
用VB递归算法实现BOM展开的树型结构操作  【梁志强,谢菁  2017/4/14】
简单的树控件菜单及查询与统计的示例  【ycxdr01  2017/9/9】
根据树控件文本值更改图片  【陈钰友  2017/11/24】
树控件显示不同图标  【大海  2017/12/11】
 
 访客评论
2017/12/14zyq

2017/12/12刘文涛
对于我这个喜欢美化的人来说真是福音啊!!!

2017/12/12zhengjin
太棒了,谢谢分享

2017/12/12林岚
太棒了,老师!

2017/12/12Big Young
超好的东东,收藏了,谢谢分享。

总记录:5篇  页次:1/1 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

大海

文章分类

文章存档

友情链接