Код для уменьшения размера фото при загрузке на страницу ASP.NET
- Источник - File1.PostedFile -выбор файла
- Уменьшенная копия с высотой/шириной=100
- Возращает System.Drawing.Image
Imports System.Drawing
Private Function ProcessingPreviewFoto() As System.Drawing.Image
Dim myIMG As System.Drawing.Image = System.Drawing.Image.FromStream(File1.PostedFile.InputStream)
Dim ImageStream As System.IO.MemoryStream
Dim H As Integer, W As Integer
With myIMG
If .Height > .Width Then
H = 100
W = CInt(.Width * 100 / .Height)
Else
W = 100
H = CInt(.Height * 100 / .Width)
End If
End With
Dim myprvImage As System.Drawing.Image = New Bitmap(W, H)
Dim myGR As Graphics = Graphics.FromImage(myprvImage)
myGR.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
myGR.DrawImage(myIMG, New Rectangle(0, 0, W, H), 0, 0, myIMG.Width, myIMG.Height, GraphicsUnit.Pixel)
myIMG.Dispose()
Return myprvImage
End Function
Пример использования http://birdoska.ru