Comment remplir dinamiquement une listimage?Résolu

Question

Comment fait-on pour remplir une listimage par des chemins?

 Iml.ListImages.Clear


For I = 0 To nombre - 1
       Iml.ListImages(I).Picture = Chemin(50) & "" & File1.List(I)'  genre app.path & "" & "15.jpg"
Next I

ça plante, donc si vous pouvez m'aider ce serait sympat...

:)Sator :)

ps: si il ni avait pas de faute d'orthographe dans ce texte, il y a fort à parier que ce texte ne serait pas de moi...

NISANDSYSTEMS · Accepted Answer

Bonsoir.
déjà met Set devant l'objet  Iml.ListImages(I).Picture

Ensuite on choisit un dossier avec les images indexés de (0) to (xx)
Après, affecte le chemin de ton dossier a ton fillistbox

Private Sub Form_Load()


File1.Path = App.Path & "\mail"


End Sub

Private Sub Command1_Click()
Dim i%
Dim mlist As ListImage

On Error Resume Next

Iml.ListImages.Clear

For i = 0 To nombre - 1
    Set mlist = Iml.ListImages.Add(i + 1, "Pic" & i, LoadPicture(App.Path & "\mail" & File1.List(i)))
    
    'si tu utilise un picturebox pour visualiser ton resultat.
    'Set P(i).Picture = Iml.ListImages(i + 1).Picture

    
Next i%

End Sub

@+
Philippe.

cs_Sator · Answer

Salut
 Ben je te remercie de ton aide, et de ton attention... ça va m'être super util, j'avais plancher un moment et je n'avais rien trouvé, là-dessus merci encore.

:)Sator :)

ps: si il ni avait pas de faute d'orthographe dans ce texte, il y a fort à parier que ce texte ne serait pas de moi...

Comment remplir dinamiquement une listimage?

2 réponses

Votre réponse

Discussions similaires