1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
|
Private tvParent As TreeNode
Private tvType As TreeNode
Private Sub loadClasses()
Dim line As String
TreeView1.Nodes.Clear()
If myClasses.ObjDesc.Count > 0 Then
For Each key As String In myClasses.ObjDesc.Keys
tvParent = TreeView1.Nodes.Add(key, key, 0, 0)
tvType = tvParent.Nodes.Add("CFG", "CFG", 0, 0)
For Each key2 As String In myClasses.ObjDesc(key).Cfg.Keys
line = key & " , " & myClasses.ObjDesc(key).Cfg(key2).Name & " , " & _
myClasses.ObjDesc(key).Cfg(key2).ExpliciteName & " , " & myClasses.ObjDesc(key).Cfg(key2).Acces & " , " & _
CStr(myClasses.ObjDesc(key).Cfg(key2).vbType) & " , " & myClasses.ObjDesc(key).Cfg(key2).Limitation & " , " & _
CStr(myClasses.ObjDesc(key).Cfg(key2).Use) & " , " & Format(myClasses.ObjDesc(key).Cfg(key2).UseVersion, "##,#")
tvType.Nodes.Add(line, line, 0, 0)
tvType.ExpandAll()
Next
tvType = tvParent.Nodes.Add("DATA", "DATA", 0, 0)
For Each key2 In myClasses.ObjDesc(key).Data.Keys
line = key2 & " , " & myClasses.ObjDesc(key).Data(key2).Name & " , " & _
myClasses.ObjDesc(key).Data(key2).ExpliciteName & " , " & myClasses.ObjDesc(key).Data(key2).Acces & " , " & _
CStr(myClasses.ObjDesc(key).Data(key2).vbType) & " , " & myClasses.ObjDesc(key).Data(key2).Limitation & " , " & _
CStr(myClasses.ObjDesc(key).Data(key2).Use) & " , " & Format(myClasses.ObjDesc(key).Data(key2).UseVersion, "##,#")
tvType.Nodes.Add(line, line, 0, 0)
tvType.ExpandAll()
Next
Next
End If
TreeView1.Scrollable = True
End Sub |
Partager