Discussion :

[Creepy78]

Bonjour à tous,

J'alimente une treview sur 3 niveaux depuis un recordset. j'ai donc
Root
Niveau 1
Niveau 2
niveau 3

Je sais faire un collapseall ou expandall.

Mais là je voudrais que le niveau 3 soit "fermé" car sinon ma treeview est trop longue et pas esthétique.

Impossible je ne trouve pas la manipulation. Comment coder : expand Niv 1 et 2, mais collaps niv 3.

Merci de votre aide. Bonne soirée,

Creepy

[mdevaux62]

Cette procédure remplit un TreeNode à 3 niveaux, déploie les 2 premiers niveaux et réduit le 3ème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
    Private Sub Arbre()
        'Création des noeuds
        With TreeView1
            '1er niveau
            For i As Integer = 1 To 4
                Dim texte As String = "Niveau " & i.ToString
                Dim noeud As New TreeNode(texte)
                .Nodes.Add(noeud)
            Next
            '2ème niveau
            For i As Integer = 1 To .Nodes.Count
                For j As Integer = 1 To 4
                    Dim texte As String = .Nodes(i - 1).Text & " - " & j.ToString
                    Dim noeud As New TreeNode(texte)
                    .Nodes(i - 1).Nodes.Add(noeud)
                Next
            Next
            '3ème niveau
            For i As Integer = 1 To .Nodes.Count
                For j As Integer = 1 To .Nodes(i - 1).Nodes.Count
                    For k As Integer = 1 To 4
                        Dim texte As String = .Nodes(i - 1).Nodes(j - 1).Text & " - " & k.ToString
                        Dim noeud As New TreeNode(texte)
                        .Nodes(i - 1).Nodes(j - 1).Nodes.Add(noeud)
                    Next
                Next
            Next
            'Expansion (tout)
            .ExpandAll()
            'Réduction du 3ème niveau
            For Each noeud As TreeNode In .Nodes
                For Each sousNoeud As TreeNode In noeud.Nodes
                    sousNoeud.Collapse()
                Next
            Next
        End With
    End Sub

PS : A noter qu'il doit être possible de créer une procédure récursive de telle sorte que le dernier niveau de chaque nœud soit fermé et cela quelque soit le nombre de niveaux de chacun des nœuds de l'arbre.