TreeView - Steuerelement

03/12/2007 - 14:33 von Stefan | Report spam
Hallo,

hat jemand Ahnung ob eine Möglichkeit besteht ein Treeview - Element
komplett aufgeklappt darzustellen.

Wàre über eine antwort echt dankbar

mfg

Stefan
 

Lesen sie die antworten

#1 Andy Dorwald
03/12/2007 - 14:53 | Warnen spam
Hallo Stefan,

"Stefan" schrieb:
Hallo,

hat jemand Ahnung ob eine Möglichkeit besteht ein Treeview - Element
komplett aufgeklappt darzustellen.

Wàre über eine antwort echt dankbar


Tja, da kommst Du nicht herum, alle Nodes durchzulaufen:

Hier ein Beispiel (ich benutze jedoch nicht das VB-TreeView-Cntrl, deshalb
habe ich das Beispiel nicht getsetet. Daher kann es sein, dass Du den Code
leicht anpassen musst):

Private Sub AllNodesExpandsRecurse(nod As Node)
Dim nodX As Node

nod.Expanded = True
If Not nod.Child Is Nothing Then
Set nodX = nod.Child
Do
Call AllNodesExpandsRecurse(nodX)
Set nodX = nodX.Next
Loop Until nodX Is Nothing
End If
End Sub

Ansprechen kannst Du die Prozedur wie folgt:

Wechsle auf das erste Node (z. B. Root-Node) und Call
AllNodesExpandsRecurse(nod)
Am Ende kannst Du ja wieder auf das Root zurückspringen und ein
EnsureVisible ausführen.

VG
Andy

Ähnliche fragen