[原創] VB2008 TreeView 程式建立目錄

暗黑

利用陣列建立  treeview(目錄樹)

DataStr = 陣列

陣列格式
     根目錄   次目錄   子目錄
1       a1          b1         c1
2       a1          b1         c2
3       a1         b2          c3
4       a2         b3          c4


程式碼如下

1.             Dim TreeMainCheck As String = "N"
   
2.             Dim TreeMainCheck1 As String = "N"
   
3.             Dim TreeMainCheck2 As String = "N"
   
4.             For Ia = 1 To UBound(DataStr, 1)
   
5.                 TreeMainCheck = "N"
   
6.                 If Ia > 1 Then
   
7.                     For Ib = 0 To Main.TreeView1.Nodes.Count - 1
   
8.                         TreeMainCheck1 = "N"
   
9.                         If Main.TreeView1.Nodes(Ib).Text = DataStr(Ia, 0) Then
   
10.                             TreeMainCheck = "Y"
    
11.                             For Ic = 0 To Main.TreeView1.Nodes(Ib).Nodes.Count - 1
    
12.                                 TreeMainCheck2 = "N"
    
13.                                 If Main.TreeView1.Nodes(Ib).Nodes(Ic).Text = DataStr(Ia, 1) Then
    
14.                                     TreeMainCheck1 = "Y"
    
15.                                     For Id = 0 To Main.TreeView1.Nodes(Ib).Nodes(Ic).Nodes.Count - 1
    
16.                                         If Main.TreeView1.Nodes(Ib).Nodes(Ic).Nodes(Id).Text = DataStr(Ia, 2) Then
    
17.                                             TreeMainCheck2 = "Y"
    
18.                                             Exit For
    
19.                                         End If
    
20.                                     Next Id
    
21.                                     If TreeMainCheck2 = "N" Then
    
22.                                         Main.TreeView1.Nodes(Ib).Nodes(Ic).Nodes.Add(DataStr(Ia, 2))
    
23.                                     End If
    
24.                                 End If
    
25.                             Next Ic
    
26.                             If TreeMainCheck1 = "N" Then
    
27.                                 Main.TreeView1.Nodes(Ib).Nodes.Add(DataStr(Ia, 1))
    
28.                                 Ib -= 1
    
29.                             End If
    
30.                         End If
    
31.                     Next Ib
    
32.                     If TreeMainCheck = "N" Then
    
33.                         Main.TreeView1.Nodes.Add(DataStr(Ia, 0))
    
34.                         Ia -= 1
    
35.                     End If
    
36.                 Else
    
37.                     Main.TreeView1.Nodes.Add(DataStr(Ia, 0))
    
38.                     Main.TreeView1.Nodes(Ia - 1).Nodes.Add(DataStr(Ia, 1))
    
39.                     Main.TreeView1.Nodes(Ia - 1).Nodes(0).Nodes.Add(DataStr(Ia, 2))
    
40.                 End If
    
41.             Next Ia

複製代碼