Public Sub SearchNodes(ByVal cNodes As TreeNodeCollection, ByVal strText As String)
'рекурсивный поиск по всему дереву:
Dim curNode As TreeNode
For Each curNode In cNodes
If curNode.Text = strText Then
'curNode - найденный элемент, можно теперь например его изменить:
curNode.BackColor = Color.Aqua
curNode.EnsureVisible()
End If
If curNode.Nodes.Count > 0 Then
SearchNodes(curNode.Nodes, strText)
End If
Next
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1