Про поиск в дереве...

[Boss IT]

Доброе утро....
Искал в форуме, нашел:
http://bbs.vbstreets.ru/viewtopic.php?t ... A+treeview

но возник такой вопрос:
он ругается на 2 строчки

curNode.EnsureVisible()
SearchNodes(curNode.Nodes, strText)

И когдта пытаюсь вызвать:
SearchNodes(TV1.Nodes, txtSearch.Text)
тоже ругается....

В чем бело?


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

[tyomitch]

SearchNodes(curNode.Nodes, strText)

Скобки убери.

[Viper]

Похоже ответ "Скобки убери" становиться весьма распросттранееным и вторым по частоте после вопля ПОИСК!!!

[Boss IT]

SearchNodes(curNode.Nodes, strText)

Скобки убери.

Ругается на это:

Код: Выделить всё

Public Sub SearchNodes(ByVal cNodes As TreeNodeCollection, ByVal strText As String)

[tyomitch]

TreeNodeCollection замени на Nodes.

[Boss IT]

TreeNodeCollection замени на Nodes.

Теперь ошибка:

Dim curNode As TreeNode

[tyomitch]

TreeNode => Node

[Boss IT]

TreeNode => Node

Код: Выделить всё

curnode.BackColor = Color.Aqua
....
If curnode.Nodes.Count > 0 Then

[tyomitch]

Color.Aqua => vbCyan
curnode.Nodes.Count => curnode.Children

[Ennor]

Пардон, что вмешиваюсь, но curnode.Nodes.Count - это вообще из какой библиотеки? Что-то непохоже на MSComCtrl...

[Boss IT]

Color.Aqua => vbCyan
curnode.Nodes.Count => curnode.Children

SearchNodes TV1.Nodes, Text1.Text

когда вызывается повторно говорит:

run-time error 28
Out of stack space

[tyomitch]

Пардон, что вмешиваюсь, но curnode.Nodes.Count - это вообще из какой библиотеки? Что-то непохоже на MSComCtrl...

.net FW, видимо