Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub addImage(ByVal imageToLoad As String) Dim compteur As Integer compteur = 0 If imageToLoad <> "" Then ImageList1.Images.Add(Image.FromFile(imageToLoad)) ListBox1.BeginUpdate() ListBox1.Items.Add(imageToLoad) ListBox1.EndUpdate() 'Dim item1 As New ListViewItem("item1", 0) ' Place a check mark next to the item. 'item1.Checked = True 'item1.SubItems.Add("1") ' ListView1.Columns.Add("Item Column", -2, HorizontalAlignment.Left) 'ListView1.Columns.Add("Column 2", -2, HorizontalAlignment.Left) 'ListView1.Items.AddRange(New ListViewItem() {item1}) ListView1.Items.Add(imageToLoad, compteur) compteur = compteur + 1 ListView1.LargeImageList = ImageList1 End If End Sub