Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1360to1364
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

TreeView Checkboxes: Child checked -> Parents chec

TreeView Checkboxes: Child checked -> Parents chec
21.05.2014 12:17:02
Michael
Servus,
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
Der funktioniert auch wunderbar...danke nochmals.
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TreeView Checkboxes: Child checked -> Parents chec
21.05.2014 14:09:14
bst
Hall Michael,
tu mal so etwas ans Ende der Sub:
   While Not node.Parent Is Nothing
node.Parent.Checked = node.Checked
Set node = node.Parent
Wend
HTH, Bernd

AW: TreeView Checkboxes: Child checked -> Parents chec
21.05.2014 14:36:32
Michael
Klappt einwandfrei.
Vielen Dank Bernd.
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige