Treenodes automatisch ein- und ausklappen

20/10/2015 - 10:47 von Ahmed Martens | Report spam
Hallo Leute,

ich möchte mich gerne durch ein Treeview mit Cursor-auf und -ab bewegen,
dabei sollen die aktiven Nodes aufgeklappt und alle anderen immer
zugeklappt werden. Wie kann ich das bewerkstelligen?

Ich bekomme das einfach nicht hin.

Vielen Dank im Voraus.

Gruß Ahmed

Antworten bitte nur in der Newsgroup
Windows 7 64bit Home Premium
Office Prof. 2010
 

Lesen sie die antworten

#1 Klaus Ketelaer
20/10/2015 - 11:15 | Warnen spam
Am 20.10.2015 um 10:47 schrieb Ahmed Martens:
Hallo Leute,

ich möchte mich gerne durch ein Treeview mit Cursor-auf und -ab bewegen,
dabei sollen die aktiven Nodes aufgeklappt und alle anderen immer
zugeklappt werden. Wie kann ich das bewerkstelligen?

Ich bekomme das einfach nicht hin.

Vielen Dank im Voraus.

Gruß Ahmed



Private Sub tv_NodeClick(ByVal Node As MSComctlLib.Node)
Dim i As Integer

If Node.Children Then
For i = tv.Nodes.Count To 1 Step -1
If tv.Nodes(i).Expanded Then
tv.Nodes(i).Expanded = False
End If
Next i

Node.Expanded = True
End If
End Sub

Gruß Klaus

Ähnliche fragen