1
2
3
4
5
6
7
8
9
|
Public Function PicResizeByWidth(ByVal SourceImage As String, ByVal NewWidth As Integer) As Bitmap
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
|