Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Sub InitListview(ByRef L As ListView, ByRef Ar As Arraylist,Optional ByVal Clear As Boolean = True, Optional ByVal Taille As Integer = 128) L.BeginUpdate() If Clear Then L.Items.Clear() Try Dim imageList As New ImageList() imageList.ColorDepth = ColorDepth.Depth32Bit imageList.ImageSize = New Size(Taille, Taille) Dim Cp As Integer = 0 For Each H In Ar Dim A As New ListViewItem A.Text = H.Name A.Tag = H A.ImageIndex = Cp imageList.Images.Add(H.Image.image) L.Items.Add(A) Cp = Cp + 1 Next L.LargeImageList = imageList L.TileSize = New Size(Taille, Taille) L.View = View.LargeIcon Catch ex As Exception ' traitement du probleme End Try L.EndUpdate() End Sub