Startseite > VB.NET > VB.NET – Bilder verkleinern / Breite und Höhe anpassen

VB.NET – Bilder verkleinern / Breite und Höhe anpassen

ein Bild (jpg) für eine Vorschau auf eine bestimmte Anzahl Pixel verkleinern:

Imports System.IO
...
ResizeImage("C:\tmp\ResizeImage\earth.jpg", "C:\tmp\ResizeImage\earth_small.jpg", 300)
...
    Private Function ResizeImage(SrcImage As String, TargetImage As String, Width As Integer) As Boolean
        Dim oBmp As Bitmap = New Bitmap(SrcImage)
        If oBmp.Width > Width Then
            Dim PercentScale As Double = 100 - (Width / oBmp.Width)
            PercentScale = PercentScale / 100

            Dim TargetWidth As Integer = oBmp.Width - (oBmp.Width * PercentScale)
            Dim TargetHeight As Integer = oBmp.Height - (oBmp.Height * PercentScale)
            TargetWidth = TargetWidth * 100
            TargetHeight = TargetHeight * 100

            Dim oThumb As Bitmap = New Bitmap(TargetWidth, TargetHeight)
            Dim oGraph As Graphics = Graphics.FromImage(oThumb)
            oGraph.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
            oGraph.DrawImage(oBmp, New Rectangle(0, 0, TargetWidth, TargetHeight), New Rectangle(0, 0, oBmp.Width, oBmp.Height), GraphicsUnit.Pixel)
            oGraph.Dispose()
            oBmp.Dispose()

            oThumb.Save(TargetImage, Imaging.ImageFormat.Jpeg)
        Else
            File.Copy(SrcImage, TargetImage)
        End If
        Return (True)
    End Function

image1

image2

Werbeanzeigen
Kategorien:VB.NET
  1. Es gibt noch keine Kommentare.
  1. No trackbacks yet.

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden /  Ändern )

Google Foto

Du kommentierst mit Deinem Google-Konto. Abmelden /  Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden /  Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden /  Ändern )

Verbinde mit %s

This site uses Akismet to reduce spam. Learn how your comment data is processed.

%d Bloggern gefällt das: