AW: TreeView Checkboxes
12.05.2014 16:19:02
Michael
Das hört sich ja nicht so easy an. Ich habe folgenden Code im Internet gefunden:
Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
CheckBranch Node
End Sub
Private Sub CheckBranch(FirstNode As MSComctlLib.Node)
Dim lngIndex As Long
lngIndex = TreeView1.Nodes(FirstNode.Index).Child.Index
While lngIndex TreeView1.Nodes(FirstNode.Index).Child.LastSibling.Index
TreeView1.Nodes(lngIndex).Checked = FirstNode.Checked
If TreeView1.Nodes(lngIndex).Children > 0 Then CheckBranch TreeView1.Nodes(lngIndex)
lngIndex = TreeView1.Nodes(lngIndex).Next.Index
Wend
End Sub
Wenn ich auf ein Parent klicke, füllt er mir alle Children bis auf den letzten aus.
Und wenn ich nur ein Children anklicke, kommt: 'Laufzeitfehler 91": Objektvariable oder With-Blockvariable nicht festgelegt.