vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Verschiedenes / Sonstiges   |   VB-Versionen: VB2010 - VB201516.11.20
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 HerrmannBewertung:  Views:  131 
ohne HomepageSystem:  Vista, Win7, Win8, Win10kein 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.



Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
 
Copyright ©2000-2020 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.