Discussion :

[marsupilami34]

Bonjour,
Je viens encore vous embêtter avec les Treeview.
Je viens de passer de la version 5.0 à la version 6.0 mais lorsque je veux créer mon arboresence il me met une erreur su genre

Type incompatible

Pour afficher mon arbo j'utilse le code suivant pour un noeud père :

Code :

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

1
2
3
 
Dim NouveaudNoeud as Node
Set NouveauNoeud=Treeview1.Add.Nodes(,,NodeKey,"Noeud1"

Y a t-il un problème dans ce code ?

Merci d'avance

[SilkyRoad]

bonjour

tu peux tester cet exemple

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
Private Sub UserForm_Initialize()
    Dim k As Byte, j As Byte
    Dim Img1 As String, Img2 As String
 
    '----------------- création structure TreeView ------------------
    'Noeuds principaux
    For k = 1 To 5
        'Ajoute un noeud et associe les images qui devront s'afficher
        TreeView1.Nodes.Add , , "maClé1" & k, "ParentNode"
    Next
 
    'Noeuds enfants
    For j = 1 To 5
        For k = TreeView1.Nodes.Count To TreeView1.Nodes.Count + 2
            'Ajoute un noeud et associe les images qui devront s'afficher
            TreeView1.Nodes.Add "maClé1" & j, tvwChild, _
                    "maClé2" & Str(k), "ChildNode" & k
        Next
    Next
   '------------------------------------------------------------------
End Sub

bon apres midi
michel

[marsupilami34]

Super, ca marche comme je veux.

Merci encore pour tout.