TreeView Checkboxes: Child checked -> Parents chec
21.05.2014 12:17:02
Michael
ich habe letzte Woche von Bernd ("bst") den folgenden Code für das (Un-)Checken aller Children in einem TreeView bekommen.
Sub CheckBranch(ByVal node As MSComctlLib.node)
Dim childNode As MSComctlLib.node
If node.Children > 0 Then
Set childNode = node.Child
Do
childNode.Checked = node.Checked
CheckBranch childNode
Set childNode = childNode.Next
Loop Until childNode Is Nothing
End If
End Sub
Ist es möglich diesen Code so zu erweitern, dass, wenn man ein Child checked, auch die zugehörigen übergeordneten Parents (aller Stufen) gechecked werden?
Gruß,
Michael
Anzeige