Copie de treeview

Commenter

Contenu du snippet

Ce code permet de copier l'arborescence d'un treeview dans un autre treeview.

Source / Exemple : 


Public Function Copier(Menu_P As TreeView, MenuTree_P As TreeView) As TreeView

Dim i%
Dim Node_L As Node
Dim chaine As String

    For i = 1 To MenuTree_P.Nodes.Count

    If (i = 1) Then
       Set Node_L = Menu_P.Nodes.Add(, , MenuTree_P.Nodes(i).Key, MenuTree_P.Nodes(i).text, MenuTree_P.Nodes(i).Image, MenuTree_P.Nodes(i).SelectedImage)

       Set Node_L = MenuTree_P.Nodes(i)
    Else
      chaine = groupe.TreeView1.Nodes(i).Parent.Key  'groupe est le nom de la form, chaine recupere la cle du parent afin de créer ses fils
        
      Set Node_L = Menu_P.Nodes.Add(chaine, tvwChild, MenuTree_P.Nodes(i).Key, MenuTree_P.Nodes(i).text, MenuTree_P.Nodes(i).Image, MenuTree_P.Nodes(i).SelectedImage)

       Set Node_L = MenuTree_P.Nodes(i)
    
   End If
    Next i

End Function

'Ne pas oublié de bien initialiser les ImageList des treeviews.

Conclusion :


Pour ma part, ce code est insérer dans un module mais il fonctionne très bien à l'intérieur d'une form.
Pour l'appel de la fonction:

Call Copier (TreeView1,TreeView2) TreeView1 est l'arbre de destination et TreeView2 la source

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (acidburn23)