Bildgröße verändern (Prozentual)

Sprache: VB

Diese Funktion ändert die größe eines Bilds und gibt es als Bitmap zurück. Hier kann man einen neuen Prozentwert angeben (100% = Originalgröße) Verhältnisse werden beibehalten.

Public Function PicResizeByPercent(ByVal SourceImage As String, ByVal Percent As Short) As Bitmap
    Dim InputBitmap As New Bitmap(SourceImage)
    Dim NewWidth As Integer = ((Percent / 100) * InputBitmap.Width)
    Dim SizeFactor As Decimal = NewWidth / InputBitmap.Width
    Dim NewHeigth As Integer = SizeFactor * InputBitmap.Height
    Dim OutputBitmap As New Bitmap(System.Drawing.Image.FromFile(SourceImage), NewWidth, NewHeigth)
    PicResizeByPercent = OutputBitmap
    InputBitmap.Dispose()
    OutputBitmap.Dispose()
End Function

Public Function PicResizeByPercent(ByVal SourceImage As String, ByVal Percent As Short) As Bitmap
    Dim InputBitmap As New Bitmap(SourceImage)
    Dim NewWidth As Integer = ((Percent / 100) * InputBitmap.Width)
    Dim SizeFactor As Decimal = NewWidth / InputBitmap.Width
    Dim NewHeigth As Integer = SizeFactor * InputBitmap.Height
    Dim OutputBitmap As New Bitmap(System.Drawing.Image.FromFile(SourceImage), NewWidth, NewHeigth)
    PicResizeByPercent = OutputBitmap
    InputBitmap.Dispose()
    OutputBitmap.Dispose()
End Function

Abgelegt unter Bild Bitmap Größe

Alte URL: /snippet/bildgroesse-veraendern-prozentual/119