les images my.ressource pour dans imagelist

Bonjour,

Il faut au préalable charger les images (de Resources) dans ton ImageList. De cette manière elles sont indexées et facilement retrouvables par la suite.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Public Class Form1
 
    Private m_imgList As ImageList
 
    Sub New()
        InitializeComponent()
        m_imgList = New ImageList
        ListView1.LargeImageList = m_imgList
        InitImagesFromResources()
    End Sub
 
    'On charge l'imageList puisque tu connais dès le départ l'emplacement et le nom des images dans Resources
    Private Sub InitImagesFromResources()
        With m_imgList
            .ColorDepth = ColorDepth.Depth32Bit
            .ImageSize = New Size(32, 32)
        End With
        m_imgList.Images.Add(My.Resources._1)
        m_imgList.Images.Add(My.Resources._2)
        m_imgList.Images.Add(My.Resources._3)
        m_imgList.Images.Add(My.Resources._4)
        m_imgList.Images.Add(My.Resources._5)
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        AddImageToListViewItem(0)
        AddImageToListViewItem(1)
        AddImageToListViewItem(2)
    End Sub
 
    Private Sub AddImageToListViewItem(Index As Integer)
        Dim Lvi As New ListViewItem With {
            .ImageIndex = Index
        }
        ListView1.Items.Add(Lvi)
    End Sub
End Class

PS : Il est bien évidement possible d'ajouter dynamiquement des images à ImageList comme on pourrait le faire lorsqu'on parcours des arborescence de répertoires contenant des fichiers. Cependant dans ton cas tu connais d'avance l'emplacement des images et leur nom puisqu'elles sont dans tes Resources de projet.

Pièce jointe 469237

A+