Søgefunktion som suppplement til eksisterende TreeView control

Hej
Måske kan dette bruges
Det virker i min treewiev
svar = txtsøg '''.Text

svar = InputBox("hvad", "Navn...")
  If IsNull(svar) Or svar = "" Then Exit Sub
  For intindex = 1 To a ''''tree.Nodes.Count
  If InStr(1, tree.Nodes(intindex).Text, svar) > 0 Then
  tree.Nodes(intindex).Selected = True

    tree.Nodes(intindex).EnsureVisible

VH Anders

years since I last used the treeview control so needed to brush-up a bit.

Found a simple example which could be of interest.

Add a textbox(txtSearchFor)  to the form containing the treeview control, then when you enter text into the field the code finds and highlights those found

Private Sub txtSearchFor_Change()
   
    Dim tv As TreeView
    Dim nodNode As Node
    Dim nodFirstFind As Node
   
    'Point to the tree
    Set tv = Me.tvTreeView.Object
   
    'Search for the text and mark each find
    If Len(Me.txtSearchFor.Text & "") > 0 Then
        For Each nodNode In tv.Nodes
            If InStr(1, nodNode.Text, Me.txtSearchFor.Text, vbTextCompare) > 0 Then
                nodNode.Expanded = True
                nodNode.ForeColor = vbGreen
                If nodFirstFind Is Nothing Then
                    Set nodFirstFind = nodNode
                End If
            Else
                nodNode.Expanded = False
                nodNode.ForeColor = vbBlack
            End If
        Next nodNode
    Else
        For Each nodNode In tv.Nodes
            nodNode.ForeColor = vbBlack
        Next
        CollapseNodes tv
    End If
   
    'Select the first one found, or goto the first node if unsuccessful
    If Not nodFirstFind Is Nothing Then
        nodFirstFind.Selected = True
        nodFirstFind.EnsureVisible
    Else
        If Len(Me.txtSearchFor.Text & "") > 0 Then
            MsgBox "The text you specified can not be found", vbInformation
        End If
        GotoFirstNode tv
    End If
   
End Sub

if you send me your email to ekspertenATsanthell.dk then I can send the example dB. Theres a few other functions required to get it to work correctly