![]() |
|
Forum
|
|
|
#1 (permalink) |
|
Guest
Messages: n/a
|
Bonsoir à toutes et à tous, Je viens de découvrir les très utiles contrôles ListImages/ListView depuis peu mais la documentation en la matière manque cruellement. Je souhaite en fait ajouter dans le contrôle ListImage des icônes perso stockés sur une feuille de calcul et non dans un dossier externe. La fonction LoadImage ne peut donc pas à mon sens être adaptée à cette source d'image. Mes icônes font désormais partie d'ActiveWorkbook.Sheets.Shapes.Shape("FirstIcon")e tc... Comment faire pour parvenir à cet objectif? Quelqu'un a t'il une piste pour pouvoir afficher ce type d'image dans mon Listview? Merci d'avance pour vos conseils. à + DAVIDRUN |
| ANNONCES | |||
|
|
|
|
#2 (permalink) |
|
Guest
Messages: n/a
|
bonsoir Davidrun
si tes icones ( ou images ) doivent etre dans le classeur , tu peux essayer de les stocker directement dans l'ImageList dans les propriétés de l'ImageList : tu sélectionnes "Personnalisé" puis l'onglet "image" cliques sur le bouton "inserer images" et choisis tes icônes ou images si tu souhaites d'autres exemples sur les ListView et les imagesList http://www.excel-downloads.com/html/...elXldUserForms cliquez 2 fois sur le lien en cas de message d'erreur bonne soiree MichelXld |
|
|
#3 (permalink) |
|
Guest
Messages: n/a
|
Bonsoir michel, Merci pour tes astuces, par contre le lien dans ton message ne fonctionne pas. J'ai en outre essayé d'afficher des icônes perso dans mon listview en ayant bien sûr enregistré mes images dans un ListImage, mais cela ne fonctionne pas. En pièce jointe tu trouvera un exemple. Si tu peux y jeter un coup d'oeil, je t'en remercie d'avance. Bonne année 2005 à + DAVIDRUN |
|
|
#4 (permalink) |
|
Guest
Messages: n/a
|
bonjour David
il ne te manquais pas grand-chose ; tu es presque arrivé au bout il reste juste à attribuer une clé à l'image insérée : tu vas dans les propriétés de l'imageList Personnalisé puis l'onglet "image" dans l'exemple joint j'ai saisi "PlusVert" dans le champ "Key" ensuite au moment de l'activation de l'USF il suffit d''associer la clé à chaque élément de la listView ... For x = 1 To ListView1.ListItems.Count ListView1.ListItems(x).SmallIcon = "PlusVert" Next ... remarque 1 : pour le lien dans mon message precedent, il faut cliquer dessus une deuxieme fois en cas de message d'erreur remarque 2 : il ne faut pas definir les variables Byte et Integer sur une meme ligne bonne soiree MichelXld |
| Liens sociaux |
| Outils de la discussion | |
|
|