Страница: 1 |
Страница: 1 |
Вопрос: For Each??
Добавлено: 18.08.04 11:45
Автор вопроса: sania-tngf
Dim i As Integer
'Dim k As TreeNode
For Each k As TreeNode In Me.TreeView1.Nodes
.....
Next
Почему это не хочет работть. Цикл выполняеться всего один раз??
Ответы
Всего ответов: 5
Номер ответа: 1
Автор ответа:
Barulya
Вопросов: 29
Ответов: 55
Профиль | | #1
Добавлено: 18.08.04 13:15
В данном случае цикл перебирает корневые ветви. По все видимости у тебя одна корневая ветвь. Каждая ветвь содержит подчиненные ветви...
Номер ответа: 2
Автор ответа:
sania-tngf
Вопросов: 16
Ответов: 21
Профиль | | #2
Добавлено: 18.08.04 13:33
Спасибо а как перебрать подчиненные ветви???
Номер ответа: 3
Автор ответа:
Barulya
Вопросов: 29
Ответов: 55
Профиль | | #3
Добавлено: 18.08.04 13:46
Попробуй такой код, у меня работает (перебирает все ветви)
 im k As Windows.Forms.TreeNode
 im i As Integer
k = TreeView1.Nodes(0)
TreeView1.ExpandAll()
For i = 0 To TreeView1.VisibleCount - 1
' выполняй операции с элементом
k = k.NextVisibleNode
Next
TreeView1.CollapseAll()
k = Nothing
Номер ответа: 4
Автор ответа:
Артём Л.
ICQ: 280044491
Вопросов: 43
Ответов: 227
Профиль | | #4
Добавлено: 18.08.04 16:22
может рекурсивно всё дерево перебрать?
Номер ответа: 5
Автор ответа:
sania-tngf
Вопросов: 16
Ответов: 21
Профиль | | #5
Добавлено: 19.08.04 08:07
Спасибо я сделал через VisibleNode и все работает.