请教：如何让图片按比例缩放至PictureBox的大小!(VB.NET WINFORM)

[道宣]

请教：如何让图片按比例缩放至PictureBox的大小!

[The123]

PictureBox里有个属性SizeMode

this.pictureBox1.SizeMode = PictureBoxSizeMode.StretchImage；

[thelostman]

一般来说，你需要自己把图像的长宽比例算出来，然后再在picturebox里将长或者宽作为最值 按比例放置

[koalapopo]

还想听听有人有方法吗

[The123]

不变形？那你那个PICTUREBOX的长宽比例要和你放置的图片的长宽比例相同才行

[道宣]

this.pictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
会变形
有没有不变形的方法？

[boboox]

关注。。。

[道宣]

我想实现像WinXP的图像查看器那样的效果，请各位有经验的大哥提供点建议！

[zihu928]

非常简单，这个我写过，就是计算长宽比，按比例缩放 ，得到数据后准备绘图。
绘图也是很简单了，就是调用graphic的draw方法，其中又一个重载方法是带有frectangle参数的，它设定了图片尺寸，你把它设置成图片缩放后尺寸就OK了。

[道宣]

能给点示像代码吗？GDI我还没接触过，不太了解！

[followafterwind]

ding

[道宣]

谁来救俺，感激不尽啊！

[eytech]

顶

[aycn]

我这里有现成的函数，其实楼上不少高手没贴出来是想让你自已动手的

Friend Sub SetPictureBoxImage(ByVal pb As PictureBox, ByVal sFileName As String)
'定义一个Bitmap对象作为绘制的接受对象
Dim bmp As New Bitmap(pb.Width, pb.Height)
Dim g As Graphics = Graphics.FromImage(bmp)

Dim img As Image = Image.FromFile(sFileName)
Dim rectImage As New Rectangle(0, 0, bmp.Width, bmp.Height)
'按比例缩放
GetScaleZoomRect(img.Width, img.Height, rectImage.Width, rectImage.Height)
g.DrawImage(img, rectImage)

pb.Image = bmp
End Sub

Friend Function GetScaleZoomRect(ByVal nSrcWidth As Integer, ByVal nSrcHeight As Integer, ByRef nDstWidth As Integer, ByRef nDstHeight As Integer)
If nSrcWidth / nSrcHeight < nDstWidth / nDstHeight Then
nDstWidth = nDstHeight * (nSrcWidth / nSrcHeight)
Else
nDstHeight = nDstWidth * (nSrcHeight / nSrcWidth)
End If
End Function

[道宣]

谢谢啦