Wie kann man die Funktion so anpassen, dass sowohl jpg, bmp und gif Dateien angepasst werden können?
VB.NET-Quellcode
- Public Function PicResizeByWidth(ByVal SourceImage As String, ByVal NewWidth As Integer) As Bitmap
- 'Änderungen da bisher nur bmp dateien gehen auf image umstellen!!!
- Dim InputBitmap As New Bitmap(SourceImage)
- 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)
- PicResizeByWidth = OutputBitmap
- InputBitmap.Dispose()
- OutputBitmap.Dispose()
- End Function
