ник: Дядя Федор
код добавленного известен. запускаем поиск и все. Например:
Sub TvSearchNodes(StrSearch As String)
Dim i As Node
Dim IParent As Node
For Each i In Me.TV.Nodes
If InStr(1, i.Text, StrSearch) > 0 Then
TV_NodeClick i 'TV_NodeClick - процедура на клик
Me.TV.SetFocus
Exit For
Exit Sub
End If
Next i
Me.TV.SetFocus
End Sub
|