Export ImageList images

[Kejpa]

Hi,
does anyone have a sub for exporting the images (all or selected) of an
imagelist as files?

TIA
Kejpa

[Herfried K. Wagner [MVP]]

"Kejpa" <kS*******@saj. fi> schrieb:

does anyone have a sub for exporting the images (all or
selected) of an imagelist as files?

\\\
Dim i As Integer
For i = 0 To Me.ImageList1.I mages.Count - 1
Me.ImageList1.I mages(i).Save(i .ToString & ".bmp")
Next i
///

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Herfried K. Wagner [MVP]]

"Kejpa" <kS*******@saj. fi> schrieb:

does anyone have a sub for exporting the images (all or
selected) of an imagelist as files?

\\\
Dim i As Integer
For i = 0 To Me.ImageList1.I mages.Count - 1
Me.ImageList1.I mages(i).Save(i .ToString & ".bmp")
Next i
///

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Nigel Armstrong]

Hi Kejpa

Try this for starters:

You would want to add in checking for the directory existing, and handle
file extensions better - but you get the idea.

HTH

Nigel

Code to use the module:

Util.ImageListT oFiles(Me.Image List1, "C:\test\",
System.Drawing. Imaging.ImageFo rmat.Jpeg)

Module:

Public Module Util
Sub ImageListToFile s(ByVal list As ImageList, ByVal rootDirectory As
String, ByVal format As System.Drawing. Imaging.ImageFo rmat)
Dim i As Integer = 0
For Each im As Image In list.Images
' format.ToString is a bit of a hack...you would probably want to
' do a Select Case on it to get more control over the file
extension
im.Save(rootDir ectory & i & "." & format.ToString (), format)
i += 1
Next
End Sub
End Module
"Kejpa" wrote:

Hi,
does anyone have a sub for exporting the images (all or selected) of an
imagelist as files?

TIA
Kejpa

[Nigel Armstrong]

Hi Kejpa

Try this for starters:

You would want to add in checking for the directory existing, and handle
file extensions better - but you get the idea.

HTH

Nigel

Code to use the module:

Util.ImageListT oFiles(Me.Image List1, "C:\test\",
System.Drawing. Imaging.ImageFo rmat.Jpeg)

Module:

Public Module Util
Sub ImageListToFile s(ByVal list As ImageList, ByVal rootDirectory As
String, ByVal format As System.Drawing. Imaging.ImageFo rmat)
Dim i As Integer = 0
For Each im As Image In list.Images
' format.ToString is a bit of a hack...you would probably want to
' do a Select Case on it to get more control over the file
extension
im.Save(rootDir ectory & i & "." & format.ToString (), format)
i += 1
Next
End Sub
End Module
"Kejpa" wrote:

Hi,
does anyone have a sub for exporting the images (all or selected) of an
imagelist as files?

TIA
Kejpa

[Kejpa]

It's that simple...
I'm embarrased.

Thanx a lot!
/Kejpa
"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:%2******** ********@tk2msf tngp13.phx.gbl. ..

"Kejpa" <kS*******@saj. fi> schrieb:

does anyone have a sub for exporting the images (all or
selected) of an imagelist as files?

\\\
Dim i As Integer
For i = 0 To Me.ImageList1.I mages.Count - 1
Me.ImageList1.I mages(i).Save(i .ToString & ".bmp")
Next i
///

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Kejpa]

It's that simple...
I'm embarrased.

Thanx a lot!
/Kejpa
"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:%2******** ********@tk2msf tngp13.phx.gbl. ..

"Kejpa" <kS*******@saj. fi> schrieb:

does anyone have a sub for exporting the images (all or
selected) of an imagelist as files?

\\\
Dim i As Integer
For i = 0 To Me.ImageList1.I mages.Count - 1
Me.ImageList1.I mages(i).Save(i .ToString & ".bmp")
Next i
///

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Kejpa]

Hmmm,
back at the office after a short cold and I try your code but it won't work
with icons. I can export the images as bmp's but then I loose the
transparent part. :(

any ideas?

TIA
/Kejpa
"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:%2******** ********@tk2msf tngp13.phx.gbl. ..

"Kejpa" <kS*******@saj. fi> schrieb:

does anyone have a sub for exporting the images (all or
selected) of an imagelist as files?

\\\
Dim i As Integer
For i = 0 To Me.ImageList1.I mages.Count - 1
Me.ImageList1.I mages(i).Save(i .ToString & ".bmp")
Next i
///

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>