标题:问个简单的小问题
取消只看楼主
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1817
专家分:3681
注 册:2011-3-24
结帖率:98.24%
已结贴  问题点数:20 回复次数:4 
问个简单的小问题
TreeView每个子节点能否依需求改变不同的背景颜色?
搜索更多相关主题的帖子: 背景 
2012-08-08 12:05
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1817
专家分:3681
注 册:2011-3-24
得分:0 
试了一下是可以
但是有新问题
这要写个小程序才好说

不要選我當版主
2012-08-08 17:13
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1817
专家分:3681
注 册:2011-3-24
得分:0 
程序代码:
Private Sub Form_Load()
Dim i As Integer

    Set node1 = TreeView1.Nodes.Add(, , "school", "学校")
    Set node2 = TreeView1.Nodes.Add(node1.Index, tvwChild, "section", "部门")
    Set node3 = TreeView1.Nodes.Add(node2.Index, tvwChild, "department", "院系")
    Set node4 = TreeView1.Nodes.Add(node2.Index, tvwChild, "excute", "行政")
    Set node5 = TreeView1.Nodes.Add(node2.Index, tvwChild, "logistics", "后勤")
    
    For i = 1 To 10
        Set node5 = TreeView1.Nodes.Add(node3.Index, tvwChild, "AAA" & i, "电子系" & i)
    Next i

End Sub


要如何让"电子系" & i偶数底色变红?

不要選我當版主
2012-08-08 17:29
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1817
专家分:3681
注 册:2011-3-24
得分:0 
问过同事大概知道了

不要選我當版主
2012-08-08 18:06
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1817
专家分:3681
注 册:2011-3-24
得分:0 
程序代码:
For i = 0 To UBound(Selected)
        If Selected(i) <> "" Then
            For j = 1 To ProjManagerTreeView.Nodes.Count
                If (InStr(Selected(i), "True") <> 0) And (ProjManagerTreeView.Nodes(j).Text = Mid(Selected(i), 1, InStr(Selected(i), ",") - 1)) Then
                    ProjManagerTreeView.Nodes(j).BackColor = vbRed
                End If
            Next j
        End If
    Next i

不要選我當版主
2012-08-13 11:30



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-374919-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.233881 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved