Treeview

CB60

XLDnaute Barbatruc
Bonjour
Comment modifier cette ligne de code:
treew.Nodes.Add(, , "NoeudMat" & pere, Table(1, 1)).Expanded = True
pour pouvoir mettre des images en début des nœuds.
normalement
object.Add(relative, relationship, key, text, image, selectedimage)


merci
 

tototiti2008

XLDnaute Barbatruc
Re : Treeview

Bonjour Bruno, Bonjour Simply,

Il faut utiliser des ImageList
un tuto : Utiliser le contrôle ImageList en VBA Excel

sinon l'outil dans ma signature est un exemple d'utilisation
J'ai déclaré des variables
Code:
Dim ImageOuvr As New ImageList
et la première procédure du Module MGestImages les remplit
Puis on associe l'ImageList au treview
Code:
Set treew.ImageList = ImageOuvr
Ensuite pour les afficher il faut donner leur index dans l'ImageList
Code:
treew.Nodes.Add(, , "NoeudMat" & pere, Table(1, 1), 1, 2).Expanded = True

Edit : il faut penser à changer la propriété Style du Treeview, pour prendre une valeur avec Picture
 
Dernière édition:

Discussions similaires

Réponses
12
Affichages
537
Réponses
19
Affichages
2 K