Bildgröße prozentual verändern (Interpoliert)

Sprache: VB

Diese Funktion ändert die Größe eines Bilds und gibt es als Bitmap zurück. Hier ist die Prozentuale größe 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 ist die Prozentuale größe veränderbar.
''' </summary>
''' <param name="SourceImage">Das Bild dessen größe verändert werden soll</param>
''' <param name="Percent">Die neue größe des Bilds in Prozent (100% = Normale größe)</param>
Public Function PicResizeByPercent(ByVal SourceImage As Image, ByVal Percent As Short) As Bitmap
    Dim NewWidth As Integer = ((Percent / 100) * SourceImage.Width)
    Dim NewHeigth As Integer = ((Percent / 100) * SourceImage.Height)
    Dim NewImage As New Bitmap(NewWidth, NewHeigth)
    Using G As Graphics = Graphics.FromImage(NewImage)
        G.InterpolationMode = InterpolationMode.HighQualityBicubic
        G.DrawImage(SourceImage, New Rectangle(0, 0, NewWidth, NewHeigth))
    End Using
    Return NewImage
End Function

''' <summary>
''' Diese Funktion ändert die Größe eines Bilds und gibt es als Bitmap zurück. Hier ist die Prozentuale größe veränderbar.
''' </summary>
''' <param name="SourceImage">Das Bild dessen größe verändert werden soll</param>
''' <param name="Percent">Die neue größe des Bilds in Prozent (100% = Normale größe)</param>
Public Function PicResizeByPercent(ByVal SourceImage As Image, ByVal Percent As Short) As Bitmap
    Dim NewWidth As Integer = ((Percent / 100) * SourceImage.Width)
    Dim NewHeigth As Integer = ((Percent / 100) * SourceImage.Height)
    Dim NewImage As New Bitmap(NewWidth, NewHeigth)
    Using G As Graphics = Graphics.FromImage(NewImage)
        G.InterpolationMode = InterpolationMode.HighQualityBicubic
        G.DrawImage(SourceImage, New Rectangle(0, 0, NewWidth, NewHeigth))
    End Using
    Return NewImage
End Function

Abgelegt unter Bild Image Picture

Alte URL: /snippet/bildgroesse-prozentual-veraendern-interpoliert/338

1 Kommentar