VB Forum / Win API / March 2007

Couldn't tell what you said <g>

fwiw, this works....
'====================
Private Sub Form_Activate()
  Static AlreadyBeenHere As Boolean
  If Not AlreadyBeenHere Then
     AlreadyBeenHere = True
     Call SelectNodes
  End If
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As ComctlLib.Node)
  Dim oNode As Node
  Dim sPath As String
  Dim sDiv As String

  Set oNode = Node

  Do
     sPath = oNode.Text & sDiv & sPath
     sDiv = "|"
     Set oNode = oNode.Parent
  Loop While Not oNode.Parent Is Nothing

  'this stores the updated value each time a node is clicked.
  'change as required by your app
  Call SaveSetting("MyApp", "Settings", "CurrentNode", sPath)

End Sub

Private Sub SelectNodes()
  Dim sPath As String
  Dim sNodes() As String
  Dim lNode As Long
  Dim lLevel As Long
  Dim lCurrentNode As Long

  sPath = GetSetting("MyApp", "Settings", "CurrentNode", "")

  If Len(sPath) > 0 Then
     sNodes = Split(sPath, "|")
     lCurrentNode = 1

     For lLevel = 0 To UBound(sNodes)

        For lNode = lCurrentNode To TreeView1.Nodes.Count
           If TreeView1.Nodes(lNode).Text = sNodes(lLevel) Then
              TreeView1.Nodes(lNode).Selected = True
              TreeView1.Nodes(lNode).Expanded = True
              lCurrentNode = lNode
              Exit For
           End If
        Next

     Next

  End If

End Sub
'====================