[RESOLVED] imageName = ImageList1.Images.Keys(x)

[Mallard8]

How do I get the image name from an ImageList after using OpenFileDialog to load the images in to the image list.
The images are loaded in to the image list and from the ImageList to the PictureBoxes but when I try to get the names using
the last two lines of code Nothing.
If placed in the ImageList when in design editor then all works fine.
I did look in the Docs and there looked a really good example to download and work through but it doesn't work.
So here I am again.

                Dim b As Bitmap = DirectCast(ImageList1.Images(x), Bitmap) 'Get number in Imagelist
                DirectCast(Me.Controls("pbxFrame" & i), PictureBox).Image = b 'Place images in PictureBoxes
                imageName = ImageList1.Images.Keys(x) 'Get image name from ImageList
                savedNames(i) = imageName 'Place image names in an array
                i += 1

[jmcilhinney]

Did you actually set a name when you added the images? The names are not part of the image objects themselves. It is completely up to you whether you provide names and what they are. They are simply dictionary keys. If you don't set them, they don't exist. If you're unsure, show us the code that populates the ImageList.

[Mallard8]

Load Images into ImageList

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        ImageList1.Images.Clear()

        oFD1.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
        oFD1.Title = "Open Image Files"
        oFD1.Filter = "Jpeg|*.jpg|Gif|*.gif|Png|*.png|Bmp|*.bmp"
        oFD1.Multiselect = True

        ListView1.LargeImageList = ImageList1

        If oFD1.ShowDialog() = DialogResult.OK Then
            Dim counter As Integer = 0
            For Each Singlefile As String In oFD1.FileNames
                ImageList1.Images.Add(Image.FromFile(Singlefile))
                ListView1.BeginUpdate()
                ListView1.Items.Add(Singlefile, counter)
                ListView1.EndUpdate()
                counter += 1
            Next
        End If
        AssignImagesToSquares()
    End Sub

Load images from ImageList to PictureBoxes and place names of Images to savedNames array to later compare for a match

    Private Sub AssignImagesToSquares()
        Dim imageName As String
        Dim i As Integer = 1
        For j = 0 To 1 'Go through twice 8 images x 2 = 16 squares
            Dim indices() As Integer = Enumerable.Range(0, 8).OrderBy(Function(x) r.NextDouble).ToArray
            For Each x As Integer In indices
                Dim b As Bitmap = DirectCast(ImageList1.Images(x), Bitmap) 'Get number in Imagelist
                DirectCast(Me.Controls("pbxFrame" & i), PictureBox).Image = b 'Place images in PictureBoxes
                imageName = ImageList1.Images.Keys(x) 'Get image name from ImageList
                savedNames(i) = imageName 'Place image names in an array
                i += 1
            Next
        Next
    End Sub

[jmcilhinney]

As I said then, you're not adding a name when you add the image:

ImageList1.Images.Add(Image.FromFile(Singlefile))

If you expect that image to have a name then you have to provide one when you add it. That Add method is overloaded and the overload that you want is this one:

https://docs.microsoft.com/en-au/dot...Drawing_Image_

It's up to you to decide what you want the name of that image to be. If, for instance, you want to use the file name, you might do this:

ImageList1.Images.Add(Path.GetFileNameWithoutExtension(Singlefile), Image.FromFile(Singlefile))

By the way, calling BeginUpdate and EndUpdate inside the loop that adds the items is useless. The whole point is that you call them when you begin updating and when you end updating, so before and after the loop respectively.

[Mallard8]

Thanks John but can't get either of those suggestions to work Path has a squiggle and not sure how to declare the path even though it is in the singlefile and adding a key value just couldn't figure that at all.
I think it is time for me to end my vb adventure as everything I try seems to come back to the forum.

[jmcilhinney]

If you search for "GetFileNameWithoutExtension" you'll see that it is a member of the Path class in the System.IO namespace. If you want to use any type in code, you need to either qualify the type name with the namespace where you use it or else import the namespace, either at the file level or the project level. The System namespace is already imported at the project level so that means that you either use IO.Path in that code or you can import the System.IO namespace.

Singlefile is the path of the file. The Path class contains methods for manipulating file and folder paths. GetFileNameWithoutExtension is a method that, when provided a file path, will return the name of the file without the extension.

[Mallard8]

Still didn't work for me? clearly I'm missing something which is obvious to yourself.

   ImageList1.Images.Add(GetFileNameWithoutExtension(Singlefile), Image.FromFile(Singlefile))

[jmcilhinney]

Still didn't work for me? clearly I'm missing something which is obvious to yourself.

   ImageList1.Images.Add(GetFileNameWithoutExtension(Singlefile), Image.FromFile(Singlefile))

That's not what I said. Either qualify the type name:

ImageList1.Images.Add(IO.Path.GetFileNameWithoutExtension(Singlefile), Image.FromFile(Singlefile))

or import the namespace:

Imports System.IO

and then use the type name unqualified:

ImageList1.Images.Add(Path.GetFileNameWithoutExtension(Singlefile), Image.FromFile(Singlefile))

The import code I showed goes at the top of the code file to import for just that file, or you can forgo the code and import on the References page of the project properties by checking the namespace in the list. If you do the latter, you will be presented with a list of all the namespaces with member types declared in the current assembly and any referenced assemblies and you can see those that are imported by default, e.g. System.Data and System.Windows.Forms. That's how you can use the DataTable class and all the WinForms control types without issue. Every type is a member of a namespace and every type you use must be disambiguated one way or another. For instance, if you import two namespaces and use the type name that exists in both, you have no choice but to qualify the type name in place in order to specify which of the two types you actually mean.

I suggest that you follow the Blog link in my signature below and read my post on Assemblies & Namespaces.

[Mallard8]

Imports System.IO

Did that

ImageList1.Images.Add(Path.GetFileNameWithoutExtension(Singlefile), Image.FromFile(Singlefile))

And That
But still did not work

|Followed the example in the Docs and ended up with ths

 For Each Singlefile As String In oFD1.FileNames
                Dim fileName As String = Singlefile
                result = io.Path.GetFileNameWithoutExtension(fileName)
                ImageList1.Images.Add(result)
                ListView1.Items.Add(Singlefile, counter)
                counter += 1
            Next

Which did work but can't load the file to the imagelist beacause it has no extension.

[jmcilhinney]

But still did not work

What exactly does that mean? Compilation error? Run-time exception? Unexpected behaviour?

[Mallard8]

John,
First an apology (But still did not work) pointless statement, a trap I don't normally fall in to.
Second, forgot to follow the advice on a previous thread take a break, Frequently and regularly.
Finally figured it out I had, and not sure how, Imports System.IO.Path, after spending time away in the garden came back tonight and spotted what had happened, using System.Imports.IO now and all is fine.
Thanks for having the patience to keep with me on this thread .

[.paul.]

Simples...

For Each Singlefile As String In oFD1.FileNames
    Dim fileName As String = io.Path.GetFileNameWithoutExtension(Singlefile)
    ImageList1.Images.Add(fileName, Image.FromFile(Singlefile))
    ListView1.Items.Add(Singlefile, counter)
    counter += 1
Next

[.paul.]

Simples...

For Each Singlefile As String In oFD1.FileNames
    Dim fileName As String = io.Path.GetFileNameWithoutExtension(Singlefile)
    ImageList1.Images.Add(fileName, Image.FromFile(Singlefile))
    ListView1.Items.Add(Singlefile, counter)
    counter += 1
Next

[Mallard8]

Thanks Paul,
After all that it turned out to be simples !

I was nearly there with what I had.