Thread: Image losing PropertyItems when adding to ImageList

I don't get it... This doesn't work either.

Code:

For Each origProp As PropertyItem In img.PropertyItems
    il.Images.Item(0).SetPropertyItem(origProp)
Next
MsgBox(il.Images(0).PropertyItems.Length) ' Length = 0

I just ran this code:

Code:

Dim img = Image.FromFile(filePath)

Me.ImageList1.Images.Add(img)
MessageBox.Show((img Is Me.ImageList1.Images(0)).ToString)

and got False, i.e. the Image object I added to the ImageList is not the Image stored in the ImageList. A new Image object is created based on the image properties defined by the ImageList. I don't know whether that is always the case but it obviously is in some cases at least. The documentation for the Image.PropertyItems property says:

If the image has no property items or if the image format does not support property items, PropertyItems returns an empty array (that is, an array of length zero).

Presumably the image format supported by your ImageList doesn't support property items.