关于Treeview控件

453563050

可否将一下Excel中格式的内容转变在TreeView中显示，TreeView控件帮忙设置下可以选择支点
先谢谢啦~

例子：
/兄弟 Brother/企业新闻原载
/兄弟 Brother/促销新闻
/兄弟 Brother/新闻稿/播种创意收获温暖 Brother 创意中心有奖活动持续进行中原载
/兄弟 Brother/竞争对手/东芝 TOSHIBA
/兄弟 Brother/竞争对手/锦宫牧野 KingJim
。。
。。
。。
。。

jsxjd

好多重复的如何处理？

闻启学

刚刚做元一个类似 你这个复杂点

闻启学

jsxjd 发表于 2014-5-30 17:46
好多重复的如何处理？

重复的看作同一个分支

453563050

jsxjd 发表于 2014-5-30 17:46
好多重复的如何处理？

就是好多重复的才不知道如何做了。。而且有个问题就是 不知道那个是父文件夹，那个是子文件夹

453563050

闻启学 发表于 2014-5-30 17:55
刚刚做元一个类似 你这个复杂点

可否看下你刚做的？ 给个参考，来点灵感！

jsxjd

453563050 发表于 2014-5-30 17:59
就是好多重复的才不知道如何做了。。而且有个问题就是 不知道那个是父文件夹，那个是子文件夹

可先对数据进行预处理，去掉重复的

chxw68

1. Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
   
2.   Me.TextBox1.Text = TreeView1.SelectedItem.FullPath
   
3. End Sub
   
4. 
   
5. Private Sub UserForm_Initialize()
   
6.   Dim d As New Dictionary
   
7.   Dim nodex As Node
   
8.   Dim r%, i%
   
9.   Dim arr
   
10.   Dim obj As Object
    
11.   On Error Resume Next
    
12.   With Worksheets("sheet2")
    
13.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
14.     arr = .Range("a2:a" & r)
    
15.   End With
    
16.   For i = 1 To UBound(arr)
    
17.     ss = Mid(arr(i, 1), 2)
    
18.     If InStr(ss, "/") <> 0 Then
    
19.       brr = Split(ss, "/")
    
20.       For j = 0 To UBound(brr)
    
21.         If j = 0 Then
    
22.           TreeView1.Nodes.Add Key:=brr(j), Text:=brr(j)
    
23.         Else
    
24.           TreeView1.Nodes.Add relative:=brr(j - 1), relationship:=tvwChild, Key:=brr(j), Text:=brr(j)
    
25.         End If
    
26.       Next
    
27.     End If
    
28.   Next
    
29. End Sub
    

复制代码

chxw68

参见附件。

mmwwdd

chxw68 发表于 2014-5-30 18:55
参见附件。

顶你，热心助人，建议升任版主