treeview在Sheet不可接受的效果.

ningyong58

开机时的效果

操作几下,得到效果.


在窗体和sheet中用的是同一段程序.

1.   Dim i As Long
   
2.   Dim j As Long
   
3.   Dim k As Long
   
4.   Dim Title As String
   
5.   Dim xNode 'As Node
   
6.   Dim NodeKey As String
   
7.   Dim NodeKey2 As String
   
8. 
   
9.   With Me.TreeView1
   
10.     .Nodes.Clear
    
11.     For i = 1 To 5
    
12.       Set xNode = .Nodes.Add
    
13.       NodeKey = "sNode-" & i
    
14.       With xNode
    
15.         .Key = NodeKey
    
16.         .Text = "sNode-" & i
    
17.         .Expanded = False
    
18.       End With
    
19.       For j = 1 To 7
    
20.         Set xNode = .Nodes.Add(NodeKey, tvwChild)
    
21.         NodeKey2 = "sNode-Child - " & i & j
    
22.         With xNode
    
23.           .Key = NodeKey2
    
24.           .Text = "Child - " & j
    
25.         End With
    
26.         For k = 1 To 10
    
27.           Set xNode = .Nodes.Add(NodeKey2, tvwChild)
    
28.           With xNode
    
29.             .Text = "Child2 - " & k
    
30.           End With
    
31.         Next k
    
32.       Next j
    
33.     Next i
    
34.   End With
    
35. 
    
36.   Set xNode = Nothing

复制代码

详见附件 test.rar (21.19 KB, 下载次数: 8)

2010-3-30 20:39 上传

点击文件名下载附件

ningyong58

Treeview等第三方控件,
看来在Form中应用的人比较多,在sheet中应用的人比较少.
小结,在sheet中应用控件主要是VBA自带的应用效果比较好.其它控件应用会有些麻烦.