fill imagelist from dir 1

[sal21]

How to fill imagelist1, with img in c:\mydirimage\, are only a .jpg image?

i need to set key of imagelist with name of image and the tag of imagelist with name of image

 

[strongm]

The following is an illustrative example, not a definitive solution. Be aware that the first image loaded defines the width and height of all images that are to be loaded.

[COLOR=blue]Public Sub LoadImages(iList As ImageList, strPath As String, strPattern As String)
    Dim myfile As String
    myfile = Dir(strPath & strPattern)
    Do Until myfile = ""
        ImageList1.ListImages.Add , myfile, LoadPicture(strPath & myfile)
        myfile = Dir
    Loop
End Sub[/color]

And this might be called as follows:

[COLOR=blue]LoadImages ImageList1, "c:\mydirimage\", "*.jpg"[/color]

 

[sal21]

tks strongm!