Hallo zusammen
Frage1:
Wie kann ich in VB6 einem Treeview Control definieren, dass 2 von 7 „Ästen“ der ersten Ebene beim anzeigen ausgeklappt sein sollen?
Frage2:
Wie kann ich in VB6 einem Treeview Control definieren, dass alle „Äste“ eines einer bestimmten Ebene anzeigen ausgeklappt sein sollen?
Vielen Dank für ein Code Snippet.
viele Grüsse
Peter
Hallo zusammen
Frage1:
Wie kann ich in VB6 einem Treeview Control definieren, dass 2
von 7 „Ästen“ der ersten Ebene beim anzeigen ausgeklappt sein
sollen?
Dim i As Integer
For i = 0 To 1
TreeView1.Nodes.Add , , „x“ & CStr(i), „x“ & CStr(i)
TreeView1.Nodes.Add(„x“ & CStr(i), tvwChild, „y“ & CStr(i), „y“ & CStr(i)).EnsureVisible
Next i
For i = 2 To 6
TreeView1.Nodes.Add , , „x“ & CStr(i), „x“ & CStr(i)
TreeView1.Nodes.Add „x“ & CStr(i), tvwChild, „y“ & CStr(i), „y“ & CStr(i)
Next i
Frage2:
Wie kann ich in VB6 einem Treeview Control definieren, dass
alle „Äste“ eines einer bestimmten Ebene anzeigen ausgeklappt
sein sollen?
Private Sub OpenNodes(ByVal Node As MSComctlLib.Node)
If Not Node.Child Is Nothing Then
Set Node = Node.Child.FirstSibling
Do Until Node Is Nothing
Node.EnsureVisible
If Not Node.Child Is Nothing Then Call OpenNodes(Node)
Set Node = Node.Next
Loop
End If
End Sub
Vielen Dank für ein Code Snippet.
viele Grüsse
Peter
Danke! 
Grüsse Peter
.