返回列表 上一主題 發帖

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

暗黑

帖子
62 
主題
10 
精華
0 
積分
253 
點名
0  
作業系統
xp , win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
人心 
註冊時間
2010-5-21 
最後登錄
2012-8-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-7-6 11:41 | 只看該作者

[原創] 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
複製代碼
收藏 分享
是學程式而不是要程式，是進步的基礎

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題