Bildgröße in beiden Dimensionen verändern (Interpoliert)

Sprache: VB

Diese Funktion ändert die größe eines Bilds und gibt es als Bitmap zurück. Hier sind beide Dimensionen veränderbar. Bei der Veränderung der Größe wird das Bild interpoliert so das die Qualität erhalten bleibt.

''' <summary>
''' Diese Funktion ändert die größe eines Bilds und gibt es als Bitmap zurück. Hier sind beide Dimensionen veränderbar.
''' </summary>
''' <param name="SourceImage">Das Bild dessen größe verändert werden soll</param>
''' <param name="Dimension">Die neue Größe (Breite,Höhe) die für das Bild verwendet werden soll</param>
Public Function PicResizeByDimension(ByVal SourceImage As Image, ByVal Dimension As Size) As Bitmap
    Dim NewImage As New Bitmap(Dimension.Width, Dimension.Height)
    Using G As Graphics = Graphics.FromImage(NewImage)
        G.InterpolationMode = InterpolationMode.HighQualityBicubic
        G.DrawImage(SourceImage, New Rectangle(0, 0, Dimension.Width, Dimension.Height))
    End Using
    Return NewImage
End Function

''' <summary>
''' Diese Funktion ändert die größe eines Bilds und gibt es als Bitmap zurück. Hier sind beide Dimensionen veränderbar.
''' </summary>
''' <param name="SourceImage">Das Bild dessen größe verändert werden soll</param>
''' <param name="Dimension">Die neue Größe (Breite,Höhe) die für das Bild verwendet werden soll</param>
Public Function PicResizeByDimension(ByVal SourceImage As Image, ByVal Dimension As Size) As Bitmap
    Dim NewImage As New Bitmap(Dimension.Width, Dimension.Height)
    Using G As Graphics = Graphics.FromImage(NewImage)
        G.InterpolationMode = InterpolationMode.HighQualityBicubic
        G.DrawImage(SourceImage, New Rectangle(0, 0, Dimension.Width, Dimension.Height))
    End Using
    Return NewImage
End Function

Abgelegt unter Bild Image Picture

Alte URL: /snippet/bildgroesse-in-beiden-dimensionen-veraendern-interpoliert/339

1 Kommentar