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
Kommentare zum Snippet