Discussion :

[Yasvah]

Bonjour à tous.

Je cherche à faire une TreeView dans un formulaire Access, dans l'objectif d'afficher l'arborescence des dossiers auquel un utilisateur Windows à accès.

Je cherche tout d'abord à comprendre le fonctionnement de la treeview, j'ai donc écrie un boue de code

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
Private Sub Form_Load()
 
Dim Tw As TreeView
Dim Noeud As Node
 
Set Tw = Me.TV1
'parametrage treeview
With Tw
   .Nodes.Clear
   .HideSelection = False
   .LineStyle = tvwRootLines
End With
'Ajout des noeuds
Set Noeud = Tw.Nodes.Add(, , "Titre", "Niveau 1")
    Set Noeud = Tw.Nodes.Add("Titre", "Niveau 2", "Toto")
    Set Noeud = Tw.Nodes.Add("Titre", "Niveau 2", "Titi")
 
End Sub

J'ai utilisé la fenêtre Contrôle Active x "Microsoft TreeView Controle, version 6.0"
Je problème que je rencontre est qu'il y a un problème d'incompatibilité de type sur :

Code :

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

Set Tw = Me.TV1

Comment déclare-t-on une Treeview?
Merci d'avance pour votre aide.

[helas]

Bonsoir,
Simplifier

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
Private Sub Form_Load()
 Dim Noeud As Node

'parametrage treeview
 With Me!TV1
   .Nodes.Clear
   .HideSelection = False
   .LineStyle = tvwRootLines

    'Ajout des noeuds
    .Nodes.Add , 0, "Titre", "Niveau 1"
    .Nodes.Add "Titre", 4, "Niveau 2", "Toto"
    .Nodes.Add "Titre", 4, "Niveau 3", "Titi"
 End With
End Sub

.Nodes.Add cle_pere, 4, clé, intitulé
0 pour un noeud père, 4 pour un noeud fils
la clé doit être unique

[Yasvah]

Je te remercie , pour ces explications.

[helas]

Une petite correction : 0 c'est pour la racine
4 ensuite

Code :

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

1
2
3
4
5
6
7
 
    .Nodes.Add , 0, "Titre", "Niveau 1"
    .Nodes.Add "Titre", 4, "Niveau 2", "Toto"
    .Nodes.Add "Niveau 2", 4, "Fils à Toto 1", "Pierre"
    .Nodes.Add "Niveau 2", 4, "Fils à Toto 2", "Paul"
    .Nodes.Add "Niveau 2", 4, "Fils à Toto 3", "Jacques"
    .Nodes.Add "Titre", 4, "Niveau 3", "Titi"