Tree View question

[elziko]

I have a tree view on a form and I'm trying to expand a certain node so that all its children are then visible.

I'm doing this from a different form:

frmMain.tvTreeView.Nodes.Item(i).Expanded = True

The node I'm trying to access does exist but nothing happens. Not even an error message. Is this because I'm trying it from another form?

Many Thanks

elziko

 

[MarkSweetland]

Try:

frmMain.tvTreeView.Nodes.Item(i).Child.EnsureVisible
frmMain.tvtreeView.refresh

 

[elziko]

I just seem to get an:

Object variable or With Block variable not set error. I see what your code is trying to do but it doesn't want to work. I also tried doing a refresh after my first attempt and that didn't help.

I've also tried it from the form that the tree view is on but that is also no help!

Mark, have you actually got this code working?

Many Thanks

elziko

 

[MarkSweetland]

I have, but I populate the child nodes on the Nodeclick event rather than fully populate the entire tree initially. I use a small routine to return a reference to the actual node and manipulate from there...

Public Function FindNode(strSrch As String) As Node
    Dim index As Integer
 
    Set FindNode = treTrans.Nodes(1) ' set default to root
    For index = 1 To treTrans.Nodes.Count
        If treTrans.Nodes(index).Text = strSrch Then
            treTrans.Nodes(index).EnsureVisible
            treTrans.Nodes(index).Selected = True
            Set FindNode = treTrans.Nodes(index)
            Exit For
        End If
    Next
  
End Function