SEARCH in treeview

[sal21]

How to search myvar in each level 3 of treeview?
Tks

[HansV]

See [VBA] Treeview; search option

[sal21]

See [VBA] Treeview; search option

ok.

I USE THIS CODE TO SEARCH IN TREEVIEW.

if the value is found i set green font.

Only a problem...

if the treeview is compressed when the node is found i need to expand the root CN-CUNEO , to permit to the user to see the item found

How to?

Code: Select all

End Sub
Private Sub CERCA_COMUNI()

    Dim MYNODE As Node
    Dim NRTOT As Long
    
    VALORE = "004003"
    
    NRTOT = 0

    For Each MYNODE In Me.TreeView1.nodes
    
        If MYNODE.children = 0 Then
        
            NRTOT = NRTOT + 1
            
            ISTAT = Split(MYNODE, "-")(0)
            
            If ISTAT = VALORE Then
            Stop
            
            NR = MYNODE.Index
            
            MYNODE.BackColor = vbGreen
            
            Exit For
            
            End If
            
        End If
        DoEvents
    Next

End Sub

[HansV]

Have you tried

MYNODE.Selected = True

[sal21]

Have you tried

MYNODE.Selected = True

resolved also the last modified post!
Tks bro

[sal21]

Have you tried

MYNODE.Selected = True

is this a good tips:

...
VV = "063009-BOSCOTRECASE"
Set MYNODE = Me.TreeView1.nodes.Item(VV)
...

[HansV]

That will work if "063009-BOSCOTRECASE" is the Key of a node, not if it is the text of a node.

[sal21]

That will work if "063009-BOSCOTRECASE" is the Key of a node, not if it is the text of a node.

Ahhhhh.
Tks

[sal21]

That will work if "063009-BOSCOTRECASE" is the Key of a node, not if it is the text of a node.

Ahhhhh.

In this case i need only to loop, Is the unique way?

Tks

[HansV]

If your nodes do not have a Key, you do need to loop.

[sal21]

If your nodes do not have a Key, you do need to loop.

[sal21]

If your nodes do not have a Key, you do need to loop.

During the fill of treeview:

...
NODX.Key="600223"

Correct?

[HansV]

Yes. If you do that, you can later on use

VV = "600223"
Set MYNODE = Me.TreeView1.Nodes.Item(VV)

or even


VV = "600223"
Set MYNODE = Me.TreeView1.Nodes(VV)

[sal21]

Yes. If you do that, you can later on use

VV = "600223"
Set MYNODE = Me.TreeView1.Nodes.Item(VV)

or even


VV = "600223"
Set MYNODE = Me.TreeView1.Nodes(VV)

[snb]

e.g.

Code: Select all

Private Sub UserForm_Click()
  With TV_01.Nodes("DOLO")
     .EnsureVisible
     .BackColor = vbGreen
  End With
End Sub