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

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

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