Why doesn't this work ??

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.
 
S

sebastienm

Hi,
what does not work? any error code? which line?

First, replace:
Set NodX = FormName.TreeName.Nodes.Add(ParentBranch, tvwChild, IndexKey & X,
StrArray(X))
by
Set NodX = TreeName.Nodes.Add(ParentBranch, tvwChild, IndexKey & X,
StrArray(X))

Anyway, we need more inputs to run your code:
- what is FilteredLegends
- even after the above modification, it breaks on "cannot find element" it's
looking for "MyRoot"

Reagrds,
Sebastien
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top