Как обратиться к любой ноде в TreeView

[HBasic]

У меня есть многоуровневое TreeView с множеством узлов и нодов
1)Как обратиться к конкретному узлу
2)Как обратиться к конкретному потомку в этом узле.
3)Как подсчитать количество детей у конкретного родителя.

При помощи TreeView.Nodes.Count получаю только количество корневых нодов.При помощи
TreeView.При помощи Nodes.Child.Child и так далее Child и Nodes.Child.Child
и так далее Child Child.Next могу обращаться только к первому и второму потомку.А мне надо
к любому.Расскажите, пожалуйста, как надо.

[Хакер]

Расскажи сначала, какой тривью. Есть самозванец, с кучей свойств, есть обёртка над оригинальным TreeView с меньшим количеством.

[alibek]

HBasic, считай на текущем уровне, если есть потомки, то для каждого рекурсивно вызывай эту же функцию.

[HBasic]

Расскажи сначала, какой тривью. Есть самозванец, с кучей свойств, есть обёртка над оригинальным TreeView с меньшим количеством.

TreeView из стандартной библиотеки.

[HBasic]

HBasic, считай на текущем уровне, если есть потомки, то для каждого рекурсивно вызывай эту же функцию.

А кусочек кода не приведете?
Мне нужно обойти все злоровенное дерево с кучей уровней и потомков на каждом уровне.

[alibek]

Как-то так.

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

Function CountNodes(Parent As Node) As Long
  Dim Node As Node, Count As Long
  Set Node = Parent.Child
  Do Until Node Is Nothing
    Count = Count + 1
    If Node.Children > 0 Then Count = Count + CountNodes(Node)
    Set Node = Node.Next
  Loop
  CountNodes = Count
End Function

[HBasic]

Как-то так.

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

Function CountNodes(Parent As Node) As Long
  Dim Node As Node, Count As Long
  Set Node = Parent.Child
  Do Until Node Is Nothing
    Count = Count + 1
    If Node.Children > 0 Then Count = Count + CountNodes(Node)
    Set Node = Node.Next
  Loop
  CountNodes = Count
End Function

Спасибо.Утром наткнулся случайно на другой пример.Ключевое слово тут Set.Это-то мне и было нужно.