Forums Neueste Beiträge
 

TreeView Unterknoten aufklappen

02/07/2009 - 11:55 von Leuenberger Christian | Report spam
Ich möchte wenn ich den ersten Knoten öffne, gleichzeitig ein paar
Unterknoten aufklappen. Kann mir jemand einen Tip geben.

Es ist wie folgt aufgebaut

Bahnhof
Gruppe
Team


Es soll die Gruppe UB und das Team FLT aufgeklappt werden.

Mein Code zum aufklappen des ersten Knoten:

Private Function TreeView_search() As Boolean
Dim Sta As Variant
Dim x As Node
TreeView_search = False
Sta = "Sta" & fct_sendbahnhofid
For Each x In TreeView_Team.Nodes
If x.Key = Sta Then x.Expanded = True: TreeView_search = True Else
x.Expanded = False
Next x
End Function

Ist TreeView_search = false wird ein neuer Knoten eingetragen.

Gruss
Christian

Arbeite mit Access XP
 

Lesen sie die antworten

#1 Thomas Möller
03/07/2009 - 20:44 | Warnen spam
Hallo Christian,

Leuenberger Christian schrieb:

Ich möchte wenn ich den ersten Knoten öffne, gleichzeitig ein paar
Unterknoten aufklappen. Kann mir jemand einen Tip geben.

Es ist wie folgt aufgebaut

Bahnhof
Gruppe
Team


Es soll die Gruppe UB und das Team FLT aufgeklappt werden.

Mein Code zum aufklappen des ersten Knoten:

Private Function TreeView_search() As Boolean
Dim Sta As Variant
Dim x As Node
TreeView_search = False
Sta = "Sta" & fct_sendbahnhofid
For Each x In TreeView_Team.Nodes
If x.Key = Sta Then x.Expanded = True: TreeView_search = True Else
x.Expanded = False
Next x
End Function



wenn Du den richtigen Knoten gefunden hast und diesen aufgeklappt hast,
dann musst Du Dir die Childs zu diesem Knoten vornehmen und dort eine
àhnliche Suche vornehmen wie hier.
Einen Ansatz für das Coding kannst Du in Olafs Posting finden:
http://groups.google.com/group/micr...23c6954655
(Link in einer Zeile)


HTH
Thomas

Homepage: www.Team-Moeller.de

Ähnliche fragen