fill image list from .gif in dir

[sal21]

Possible to fill an imagelist with a .gif in c:\mydir\img\

note:
after maintain the .gif saved in imagelist, for the next use

[HansV]

Perhaps code like this:

Code: Select all

    Const strPath = "c:\mydir\img\"
    Dim strFile As String
    With Me.ImageList1.ListImages
        strFile = Dir(strPath & "*.gif")
        Do While strFile <> ""
            .Add Picture:=LoadPicture(strPath & strFile)
            strFile = Dir
        Loop
    End With

[sal21]

Perhaps code like this:

Code: Select all

    Const strPath = "c:\mydir\img\"
    Dim strFile As String
    With Me.ImageList1.ListImages
        strFile = Dir(strPath & "*.gif")
        Do While strFile <> ""
            .Add Picture:=LoadPicture(strPath & strFile)
            strFile = Dir
        Loop
    End With

tks.

but really i need to fill a imagecombobox with a little flag of states and international phone prefix...

similar:

flag<state><prefix>

flag of Italia-ITALIA_+39

have an idea?

[HansV]

Lets say has index 4 in the image list.

Me.ImageCombo1.ComboItems.Add Text:="ITALIA - 39", Image:=4

[sal21]

Lets say has index 4 in the image list.

Me.ImageCombo1.ComboItems.Add Text:="ITALIA - 39", Image:=4

Problem...
I have The image of flag state without idetif prefix!
I have only italy.gif!!!
I need any images of states and related prefix Number,...
Can you help me for research....

[HansV]

When you add the gif files to the ImageList:

Code: Select all

            .Add Picture:=LoadPicture(strPath & strFile), Key:=Replace(strFile, ".gif". "")

This will store Italy.gif with Key value "Italy".
Then use

Code: Select all

Me.ImageCombo1.ComboItems.Add Text:="ITALIA - 39", Image:="Italy"

(I cannot test this myself)

[HansV]

You'll find lots of flags in this post. It's not up-to-date though.

[HansV]

Also see Best Country Flag Icon Sets

[sal21]

Also see Best Country Flag Icon Sets

TKS.

But i need also the association flag+prefix+state

[HansV]

See List of country calling codes and/or [url=https://countrycode.org/]Country Codes[/code]

[sal21]

Perhaps code like this:

Code: Select all

    Const strPath = "c:\mydir\img\"
    Dim strFile As String
    With Me.ImageList1.ListImages
        strFile = Dir(strPath & "*.gif")
        Do While strFile <> ""
            .Add Picture:=LoadPicture(strPath & strFile)
            strFile = Dir
        Loop
    End With

RESOLVED!

but i can add a .tag when add picture?

[HansV]

Individual images in an ImageList control do not have a Tag, but you can use the Key property for this purpose:

.Add Picture:=LoadPicture(strPath & strFile), Key:=Replace(strFile, ".gif". "")

[SpeakEasy]

>Individual images in an ImageList control do not have a Tag

Erm ... are you quite sure?

[HansV]

No. It turns out they do have a tag. Sorry for the misinformation.

Me.ImageList1.ListImages.Add(Picture:=LoadPicture(strPath & strFile)).Tag = "Italy"