D
Dan Thompson
You need a userform with a treeview control named "Treeview1" before you run
this code..
I don't understand everything seems to work except the Treeview object being
passed to the Sub "PopulateChildBranches"
Any thoughts would be appreciated.
Code starts after this line.
Sub RunMe()
PopulateChildBranches MyForm, TreeView1, "MyRoot", "L", FilteredLegends
End Sub
Sub PopulateChildBranches(FormName As UserForm, TreeName As Object,
ParentBranch As String, IndexKey As String, StrArray() As String)
Dim X As Long
Dim NodX As Node
For X = 1 To UBound(StrArray)
Set NodX = FormName.TreeName.Nodes.Add(ParentBranch, tvwChild, IndexKey
& X, StrArray(X))
NodX.EnsureVisible
Set NodX = Nothing
Next
End Sub
Dan Thompson.
this code..
I don't understand everything seems to work except the Treeview object being
passed to the Sub "PopulateChildBranches"
Any thoughts would be appreciated.
Code starts after this line.
Sub RunMe()
PopulateChildBranches MyForm, TreeView1, "MyRoot", "L", FilteredLegends
End Sub
Sub PopulateChildBranches(FormName As UserForm, TreeName As Object,
ParentBranch As String, IndexKey As String, StrArray() As String)
Dim X As Long
Dim NodX As Node
For X = 1 To UBound(StrArray)
Set NodX = FormName.TreeName.Nodes.Add(ParentBranch, tvwChild, IndexKey
& X, StrArray(X))
NodX.EnsureVisible
Set NodX = Nothing
Next
End Sub
Dan Thompson.