Bildgröße im Verhältnis 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 neue Breite veränderbar
''' </summary>
''' <param name="SourceImage">Das Bild dessen größe verändert werden soll</param>
''' <param name="NewWidth">Die neue Breite des Bilds, das Größenverhältnis des Bilds wird eingehalten</param>
Public Function PicResizeByWidth(ByVal SourceImage As Image, ByVal NewWidth As Integer) As Bitmap
    Dim SizeFactor As Decimal = NewWidth / SourceImage.Width
    Dim NewHeigth As Integer = SizeFactor * 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