как в treeview определить глубину вложения ?

[barzass7]

доброго времени суток, говорю заранее, я на бейсике только начинаю программировать

подскажите ,пожалуйста, как в treeview 6-м определить глубину вложения выделенного нода в ветке от верхнего уровня?

[Хакер]

Что значит 6-ой TreeView? Шестая версия comctl32.dll? Или шестая версия враппера (mscomctl.ocx)?

Поискать свойство. Если свойство не найдётся, итеративно спуститься вниз до достижения корня, посчитав количество итераций.

[alibek]

Поискать свойство. Если свойство не найдётся, итеративно спуститься вниз до достижения корня, посчитав количество итераций.

Подняться.
Есть еще индусский вариант, заменить символ "\" на пустую строку в Path и определить, насколько путь стал короче.

[Хакер]

Подняться.

Смотря откуда куда в воображении растёт дерево.

[alibek]

Какое еще воображение?
TreeView имеет однозначный визуальный образ.

[Хакер]

TreeView имеет однозначный визуальный образ.

Тогда уж влево, потому что выше/ниже будут ещё сиблинги.
Я имел в виду обход дерева как структуры данных, а не обход дерева как элемента управления.

[barzass7]

Что значит 6-ой TreeView? Шестая версия comctl32.dll? Или шестая версия враппера (mscomctl.ocx)?

я имел ввиду TreeView из mscomctl.ocx,

Поискать свойство. Если свойство не найдётся, итеративно спуститься вниз до достижения корня, посчитав количество итераций.

смотрел, нет там нужных свойств,втом то и проблема что я не знаю как спуститься вниз/вверх до достижения корня

Есть еще индусский вариант, заменить символ "\" на пустую строку в Path и определить, насколько путь стал короче.

пока что сделал через индусский код – через Node.FullPath , Split(Node.FullPath ,"\") и UBound но этож через задницу ибо вдруг юзер в названии ветки введет символ "\"

[hclubmk]

Если у Node есть Parent тогда Level = Level + 1, и всё сначала, типа такого:

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

Private Function NodeLevel(ByVal node As MSComctlLib.node) As Long
If (Not node.Parent Is Nothing) Then
   NodeLevel = NodeLevel(node.Parent) + 1
End If
End Function


[Хакер]

Если у Node есть Parent тогда Level = Level + 1, и всё сначала, типа такого:

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

Private Function NodeLevel(ByVal node As MSComctlLib.node) As Long
If (Not node.Parent Is Nothing) Then
   NodeLevel = NodeLevel(node.Parent) + 1
End If
End Function


Дурь. Зачем рекурсия, когда она совершенно не нужна.

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

Private Function NodeLevel(ByVal node As MSComctlLib.node) As Long
    Do Until node.Parent Is Nothing
        Set node = node.Parent
        NodeLevel = NodeLevel + 1
    Loop
End Function

[hclubmk]

Дурь

обоснуй.

[alibek]

обоснуй.

Глупости не обосновывают. Обосновывать надо идеи, которые претендуют на разумность.
В VB нет выгоды от использования рекурсивных алгоритмов, напротив, рекурсия ухудшает качество кода, если можно ее избежать.

[hclubmk]

идеи, которые претендуют на разумность

Особенно индусские методы, которые, увы, просящие помощи, берут на вооружение.

рекурсия ухудшает качество кода

Ты бы про стек уж тогда рассказал, что-ли.

[barzass7]

всем спасибо за помощь, особенно Хакеру