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:	Views:  1.997
ohne Homepage	System:  Win7, Win8, Win10, Win11	kein Beispielprojekt

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.

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.