Feedback

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

Veröffentlicht von am 27.11.2006
(1 Bewertungen)
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
Abgelegt unter Bild, Image, Picture.

1 Kommentare zum Snippet

Tim Hartwig schrieb am 28.11.2006:
Hier der Unterschied bei einer Verkleinerung:

<a href="http://home.arcor.de/khartak/dev/not_intercalated.png">Nicht interpoliert</a>
<a href="http://home.arcor.de/khartak/dev/intercalated.png">Interpoliert</a>
 

Logge dich ein, um hier zu kommentieren!