如何根据原始图像比例调整图像大小？

使用VB.net重新调整图像大小后的白色背景，如下所示。我试图改变一些值，但失败了。如何根据原始图像比例调整图像大小？

Dim FileToResize As String = Server.MapPath("~/images/" & filename & FileUpload1.FileName) 
Using originalBitmap As Bitmap = Bitmap.FromFile(FileToResize, True), newbmp As Bitmap = New Bitmap(200, 200) 
    Dim WidthVsHeightRatio = CDec(originalBitmap.Width)/CDec(originalBitmap.Height) 

    Using newg As Graphics = Graphics.FromImage(newbmp) 
     newg.SmoothingMode = Drawing2D.SmoothingMode.HighQuality 
     newg.Clear(Color.White) 

     If WidthVsHeightRatio = 1D Then 
      newg.DrawImage(originalBitmap, 0, 0, 200, 200) 
      newg.Save() 


     ElseIf WidthVsHeightRatio < 1D Then 'Image is taller than wider 

      newg.DrawImage(originalBitmap, New RectangleF(New PointF((100 - (200 * WidthVsHeightRatio)/2), 0), New SizeF(200 * WidthVsHeightRatio, 200.0F))) 
      newg.Save() 

     Else 'Image is wider than taller 

      Dim inverse As Double = Math.Pow(WidthVsHeightRatio, -1) 
      newg.DrawImage(originalBitmap, New RectangleF(New PointF(0, 100 - ((200 * inverse)/2)), New SizeF(200.0F, 200 * inverse))) 
      newg.Save() 
     End If 
    End Using 

    newbmp.Save(Server.MapPath("~/images/" & "_th_" & filename & FileUpload1.FileName), System.Drawing.Imaging.ImageFormat.Jpeg) 
    NewsItem.ImageLink = filename & FileUpload1.FileName 
    NewsItem.smallimage = "_th_" & filename & FileUpload1.FileName 
End Using

来源

2013-01-15 Dan

莫非你请张贴两张图片 - 之前和之后？ – Neolisk

究竟是什么问题？这看起来应该成功地为调整大小的图像选择大小和位置。 –

我最近在为电子商务网站动态生成图像缩略图方面做了一些研究。我开始自己生成一个位图，然后调整大小等。在光盘上的图像大小和质量出现问题后，我查看了http://imageresizing.net/，从此我一直没有回头。它可以生成从字节（图像），溪流和体检用一行代码很快所有文件：

ImageBuilder.Current.Build(New MemoryStream(bImage), sImageLocation + sFullFileName, New  ResizeSettings("maxwidth=214&maxheight=238"))

我肯定会推荐这个组件，而不是试图重新发明轮子...

来源

2013-01-15 13:39:10 James

如何根据原始图像比例调整图像大小？

回答

相关问题