[已解决]Treeview控件代码修改(树目录设置)

c888

弄了两天，还是没有领会，只好再发帖求助。请大家给予指导。谢谢！（效果附件内已有述）
Treeview控件代码修改.zip (37.33 KB, 下载次数: 46)

2013-8-21 14:26 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-8-21 15:04

1. Private Sub UserForm_Initialize()
   
2.     With Sheet3
   
3.         r = .Range("a65536").End(xlUp).Row
   
4.         ar = .Range("a2:w" & r)
   
5.     End With
   
6. 
   
7.     Set d = CreateObject("scripting.dictionary")
   
8. 
   
9.     With Me.TreeView1
   
10.         .Style = tvwTreelinesPlusMinusPictureText
    
11.         .LineStyle = tvwRootLines
    
12.         .ImageList = ImageList1
    
13.         .Nodes.Clear
    
14.         .Nodes.Add , , "top", "我的学校", 1
    
15.         If r < 3 Then Exit Sub
    
16. 
    
17.         For i = 2 To r - 1
    
18.             '二级节点 - 高X年级
    
19.             If Not d.exists(ar(i, 1)) Then
    
20.                 d(ar(i, 1)) = s
    
21.                 .Nodes.Add "top", tvwChild, ar(i, 1), ar(i, 1), 2
    
22.             End If
    
23. 
    
24.             '三级节点 - 高X(X)班
    
25.             If Not d.exists(ar(i, 1) & ar(i, 5)) Then
    
26.                 d(ar(i, 1) & ar(i, 5)) = s
    
27.                 .Nodes.Add ar(i, 1), tvwChild, ar(i, 5), ar(i, 5), 2
    
28.             End If
    
29. 
    
30.             '四级节点 学生X
    
31.             .Nodes.Add ar(i, 5), tvwChild, , ar(i, 3), 4
    
32.         Next
    
33.     End With
    
34.     Set d = Nothing
    
35. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

其实弄清父子节点就非常容易了。

c888

hwc2ycy 发表于 2013-8-21 14:41
其实弄清父子节点就非常容易了。

hwc2ycy师，您好！刚接触Treeview控件，不是很清楚，谢谢指教！

hwc2ycy

1. Private Sub UserForm_Initialize()
   
2.     With Sheet3
   
3.         r = .Range("a65536").End(xlUp).Row
   
4.         ar = .Range("a2:w" & r)
   
5.     End With
   
6.     Set d = CreateObject("scripting.dictionary")
   
7.     Set d1 = CreateObject("scripting.dictionary")
   
8.     With Me.TreeView1
   
9.         .Style = tvwTreelinesPlusMinusPictureText
   
10.         .LineStyle = tvwRootLines
    
11.         .ImageList = ImageList1
    
12.         .Nodes.Clear
    
13.         .Nodes.Add , , "top", "我的学校", 1
    
14.         If r < 3 Then Exit Sub
    
15.         For i = 2 To r - 1
    
16.             If Not d.exists(ar(i, 1)) Then
    
17.                 d(ar(i, 1)) = s
    
18.                 .Nodes.Add "top", tvwChild, ar(i, 1), ar(i, 1), 2
    
19.             End If
    
20. 
    
21.             If Not d1.exists(ar(i, 1) & ar(i, 5)) Then
    
22.                 d1(ar(i, 1) & ar(i, 5)) = s
    
23.                 .Nodes.Add ar(i, 1), tvwChild, ar(i, 5), ar(i, 5), 2
    
24.             End If
    
25. 
    
26.             .Nodes.Add ar(i, 5), tvwChild, , ar(i, 3), 4
    
27. 
    
28.         Next
    
29.     End With
    
30.     Set d = Nothing
    
31.     Set d1 = Nothing
    
32. End Sub

复制代码

hwc2ycy

1. Private Sub UserForm_Initialize()
   
2.     With Sheet3
   
3.         r = .Range("a65536").End(xlUp).Row
   
4.         ar = .Range("a2:w" & r)
   
5.     End With
   
6. 
   
7.     Set d = CreateObject("scripting.dictionary")
   
8. 
   
9.     With Me.TreeView1
   
10.         .Style = tvwTreelinesPlusMinusPictureText
    
11.         .LineStyle = tvwRootLines
    
12.         .ImageList = ImageList1
    
13.         .Nodes.Clear
    
14.         .Nodes.Add , , "top", "我的学校", 1
    
15.         If r < 3 Then Exit Sub
    
16. 
    
17.         For i = 2 To r - 1
    
18.             '二级节点 - 高X年级
    
19.             If Not d.exists(ar(i, 1)) Then
    
20.                 d(ar(i, 1)) = s
    
21.                 .Nodes.Add "top", tvwChild, ar(i, 1), ar(i, 1), 2
    
22.             End If
    
23. 
    
24.             '三级节点 - 高X(X)班
    
25.             If Not d.exists(ar(i, 1) & ar(i, 5)) Then
    
26.                 d(ar(i, 1) & ar(i, 5)) = s
    
27.                 .Nodes.Add ar(i, 1), tvwChild, ar(i, 5), ar(i, 5), 2
    
28.             End If
    
29. 
    
30.             '四级节点 学生X
    
31.             .Nodes.Add ar(i, 5), tvwChild, , ar(i, 3), 4
    
32.         Next
    
33.     End With
    
34.     Set d = Nothing
    
35. End Sub

复制代码

1411123034

{:101:}

c888

hwc2ycy 发表于 2013-8-21 15:04

谢谢hwc2ycy 师，在测试，为何学生姓名前出现打勾。

hwc2ycy

c888 发表于 2013-8-21 15:41
谢谢hwc2ycy 师，在测试，为何学生姓名前出现打勾。

那是图标集的影响。
你也可以把
.Nodes.Add ar(i, 5), tvwChild, , ar(i, 3), 4
的4换成2和3，图标就不同了。

hwc2ycy