treeview

[tae1980]

Уже туплю несколько часов на treeview. Не могу сообразить как перебрать все строки по одной ветки. Например имеем:
root1
...child1
...child2
......subchild1
......subchild2
root2
...child1
.................
Нужно перебрать в цикле все подчиненный узлы root1.

[doober]

Вас спасет рекурсия

Public Sub SearthNodes(PNode As Node)
    Dim X As Node
    If PNode.Children > 0 Then
        Set X = PNode.Child    
        kk = kk & X.FullPath & vbCrLf   
        Do While True
            If X.Children > 0 Then SearthNodes X
            Set X = X.Next
            If X Is Nothing Then
                Exit Do
            Else           
                  kk = kk & X.FullPath & vbCrLf              
            End If
        Loop
    End If
    MsgBox kk

End Sub

[tae1980]

Сообщение от doober

Вас спасет рекурсия

Вы правы, спала. Спасибо!

Еще вопрос: имеем дерево
root1
root2
...child1
...child2
......subchild1
root3
Выделяем subchild1, нужно получить имя верхнего пункта (в данном случае child2).
Строка q=treeview1.SelectendItem.Root.text
Возвращает root1. Что я делаю не так?

[doober]

Родителя потеряли?

subchild1.Parent.Text

[tae1980]

Сообщение от doober

Родителя потеряли?
subchild1.Parent.Text

Спасибо. Что-то туплю сегодня.

Ещё пара вопросов, если можно:
1. как мне узнать есть хотя бы один выделенный узел? При такой строке падаем с ошибкой, если нет ни одного выделенного узла: ЛистKey = ЛистыСписок.SelectedItem
2. Как узнать если хотя бы один узел помеченный Checkboxes? И как их перебрать в цикле, если они есть?

3. Можно ли менять цвет фона у узлов?

[doober]

А ImageList вас не спасет

Давайте решим так.
Вы создаете файл с формой,кидаете TreeView,ImageList
Заполняете его ,и указываете.что хотите получить.

[tae1980]

Сообщение от doober

А ImageList вас не спасет
Вы создаете файл с формой,кидаете TreeView,ImageList
Заполняете его ,и указываете.что хотите получить.

ImageList - это список картинок? Не хотел пока использовать картинки из-за экономии места. Пока хочу сделать форму максимально компактной.
А как быть с первыми двумя вопросами? Они сейчас критичны для меня.

[doober]

2. Как узнать если хотя бы один узел помеченный Checkboxes?

Это как понять.

Я не совсем понимаю,что вы хотите получить.Если вы не кликнули по узлу
ни разу
On Error Resume Next

ее = ЛистыСписок.SelectedItem
If Err.Number <> 0 Then MsgBox "Выделенных нет узлов"
SelectedItem

[tae1980]

Сообщение от doober

Это как понять.

Я не совсем понимаю,что вы хотите получить.Если вы не кликнули по узлу
ни разу

На форме будут кнопки, на них могут нажать раньше.

[doober]

On Error Resume Next
Dim dd As Node
Set dd = ЛистыСписок.SelectedItem
If Err.Number = 0 Then SearthNodes dd

Процедура с поста №2