CheckBox в TreeView

[OMEGUS]

Народ подскажите пожалуйста... кто знает ....?

Мне нужно что бы в дереве при клике на CheckBox нода галочки ставились или снимались на всей ветке до последнего уровня.

И еще при клике на ветку выделится вершушка родительской ветки и верхушка нода....

Есть-ли специальная команда в VB6 или код по компактнее ???

Спасибо!

[alibek]

Можно циклом, проверяя Node.Parent.
Можно рекурсией, устанавливая Node и есть есть Children, то рекурсией по детям (Set Node = Node.Next).

[alibek]

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

Private Sub tvwRefs_NodeCheck(ByVal Node As MSComctlLib.Node)
Dim S As Boolean, N As MSComctlLib.Node
If Not Node.Parent Is Nothing Then
  Set N = Node.FirstSibling
  Do Until N Is Nothing
    If N.Checked Then S = True: Exit Do
    Set N = N.Next
  Loop
  Set N = Nothing
  Node.Parent.Checked = S
End If
If Node.Children = 0 Then Exit Sub
S = Node.Checked
Set Node = Node.Child
Do Until Node Is Nothing
  Node.Checked = S
  tvwRefs_NodeCheck Node
  Set Node = Node.Next
Loop
End Sub

[OMEGUS]

Спасибо!! Классно!! Мудро!!!

Вот только как ее применить к моему дереву

[alibek]

А как ты пробовал?

[OMEGUS]

Создал дерево с неск ветвями
Пробовал вызывать как функцию не получилось...

[alibek]

Попробуй засунуть этот код в событие Check.

[OMEGUS]

А как это событие правильно пишется... я его найти не могу...
Уже методом перебора стал искать ....

[OMEGUS]

Получилось!!! Спасибо допетрил сам!!!

Только вот алгоритм когда работает в снизу вверх выделяет только один уровень над ним и все...

Как исправить что бы вверх от тожн до конца шел

[alibek]

Вверх идет до конца, только добавь в первый цикл Set Node=Node.Parent. Только зачем? Это же неправильно будет.

[OMEGUS]

Хотя да ты прав так не корректно будет... да мне и не очень так нужно...

Спасибо все работает !!!!!