Bildgröße verändern (Prozentual)

1
2
3
4
5
6
7
8
9
10

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