ImageList-Bilder ins ZIP-File Es wird Code gezeigt, mit dem man die Bilder aus einer ImageList in ein ZIP-File speichern kann.
Autor:   Dietrich Herrmann	Bewertung:     [ Jetzt bewerten ]	Views:  2.338
ohne Homepage	System:  Win7, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 5 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.6 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Wenn man alle Bilder aus einer ImageList in ein ZIP-File überführen möchte, kann man den nachfolgenden Code dafür benutzen:

Imports System.IO
Imports System.IO.Compression

Dim myImageList As Imagelist = ..., myBitmap As Bitmap
Dim sPath As String = Application.StartupPath + "\temp"
 
If Not Directory.Exists(sPath) Then
  Directory.CreateDirectory(sPath)
  MsgBox("Ordner erstellt.")
Else
  DeleteDirectory(sPath)
  If FileExists(Application.StartupPath + "imageListTemp.zip") Then _
    Kill(Application.StartupPath + "imageListTemp.zip")
End If
 
With myImageList 
  For i As Short = 0 To .Images.Count - 1
    myBitmap = New Bitmap(.Images(i).Width, .Images(i).Height,
                                      .Images(i).PixelFormat)
    myBitmap = .Images(i)
    myBitmap.Save(sPath + "" + .Images.Keys(i), Imaging.ImageFormat.png)
  Next 
End With
 
ZipFile.CreateFromDirectory(".temp", "imageListTemp.zip")
DeleteDirectory(sPath)

Dabei muss myImagelist vorher noch eine im Projekt vorhandene ImageList zugeordnet werden.
Folder- und ZIP-File-Name kann man den eigenen Vorstellungen anpassen.