標題:
[原創]
VB2008 TreeView 程式建立目錄
[打印本頁]
作者:
暗黑
時間:
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
程式碼如下
Dim TreeMainCheck As String = "N"
Dim TreeMainCheck1 As String = "N"
Dim TreeMainCheck2 As String = "N"
For Ia = 1 To UBound(DataStr, 1)
TreeMainCheck = "N"
If Ia > 1 Then
For Ib = 0 To Main.TreeView1.Nodes.Count - 1
TreeMainCheck1 = "N"
If Main.TreeView1.Nodes(Ib).Text = DataStr(Ia, 0) Then
TreeMainCheck = "Y"
For Ic = 0 To Main.TreeView1.Nodes(Ib).Nodes.Count - 1
TreeMainCheck2 = "N"
If Main.TreeView1.Nodes(Ib).Nodes(Ic).Text = DataStr(Ia, 1) Then
TreeMainCheck1 = "Y"
For Id = 0 To Main.TreeView1.Nodes(Ib).Nodes(Ic).Nodes.Count - 1
If Main.TreeView1.Nodes(Ib).Nodes(Ic).Nodes(Id).Text = DataStr(Ia, 2) Then
TreeMainCheck2 = "Y"
Exit For
End If
Next Id
If TreeMainCheck2 = "N" Then
Main.TreeView1.Nodes(Ib).Nodes(Ic).Nodes.Add(DataStr(Ia, 2))
End If
End If
Next Ic
If TreeMainCheck1 = "N" Then
Main.TreeView1.Nodes(Ib).Nodes.Add(DataStr(Ia, 1))
Ib -= 1
End If
End If
Next Ib
If TreeMainCheck = "N" Then
Main.TreeView1.Nodes.Add(DataStr(Ia, 0))
Ia -= 1
End If
Else
Main.TreeView1.Nodes.Add(DataStr(Ia, 0))
Main.TreeView1.Nodes(Ia - 1).Nodes.Add(DataStr(Ia, 1))
Main.TreeView1.Nodes(Ia - 1).Nodes(0).Nodes.Add(DataStr(Ia, 2))
End If
Next Ia
複製代碼
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)