Bilder in gewünschter Grösse speichern (VB 2005) Bilder in neuer Größe speichern mit optionaler Konvertierung in ein anderes Format
Autor:   Stefan Remberg	Bewertung:     [ Jetzt bewerten ]	Views:  13.359
www.mdb-tools.de	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Manchmal benötigt man Bilder in einem einheitlichen Format oder Grösse. In folgendem kleinen Beispiel zeige ich eine Möglichkeit zum Abspeichern von Bildern in einer fest vorgegebenen Breite. Die Bildhöhe wird hierbei passend berechnet. Ebenfalls kann das Bild in einem anderen Format gespeichert werden.

Imports System.Drawing
Imports System.Drawing.Imaging
 
...

Private Function ConvertImage(ByVal sFile As String, _
  ByVal nWidth As Integer, ByVal nFormat As ImageFormat, _
  ByVal sNewFile As String) As Boolean
 
  ' Bildgröße errechnen.
  ' Hierbei wird die Originalbreite des Bildes ermittelt, 
  ' durch sich selbst geteilt und dann mit dem ausgewählten Wert 
  ' aus(der) Combobox multipliziert. 
  ' Die Original-Bildhöhe wird nun durch die Original-Bildbreite 
  ' geteilt und dann ebenfalls mit dem ausgewählten Wert der Combobox 
  ' multipliziert.
  ' So bleibt das Grössenverhältnis von Höhe und Breite erhalten.
 
  ' Originalbild laden
  Dim originalBild As Image = Image.FromFile(sFile)
 
  ' Neues Bild-Objekt in der neu berechneten Breite und Höhe erstellen
  Dim neuesBild As Image
  With originalBild
    neuesBild = New Bitmap(CInt(.Width / .Width * nWidth), _
      CInt(.Height / .Width * nWidth))
  End With
 
  ' Bild in der neuen Größe zeichnen
  Dim destGraphic As Graphics = Graphics.FromImage(neuesBild)
  With neuesBild
    destGraphic.DrawImage(originalBild, 0, 0, .Width + 1, .Height + 1)
  End With
 
  Try
    ' Neues Bild im gewünschten Form speichern
    neuesBild.Save(sNewFile, nFormat)
    destGraphic.Dispose()
    Return True
 
  Catch ex As Exception
    destGraphic.Dispose()
    Return False
  End Try
End Function

Beispiel für den Aufruf der Funktion

' Bild "d:\bild1.bmp" mit neuer fixer Breite von 
' 200 Pixel als JPG-Datei speichern
Dim bSuccess As Boolean = ConvertImage("d:\bild1.bmp", _
  200, ImageFormat.Jpeg, "c:\bild1.jpg")