Bildgröße prozentual verändern (Interpoliert)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

''' <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