ResizePicture-vb.net

Private Function ResizePicture(ByVal objCtrl As Object, ByVal dblWidthRate As Double, ByVal dblHeightRate As Double) As Integer<br /> If objCtrl.Image Is Nothing Then Exit Function</p><p> Dim intWidth%, intHeight%<br /> Dim objImg As System.Drawing.Image = objCtrl.Image<br /> intWidth = objImg.Width '獲得原始image的大小<br /> intHeight = objImg.Height</p><p> Dim objBmp As New Bitmap(CInt(intWidth * dblWidthRate), CInt(intHeight * dblHeightRate)) '建立畫布（畫布大小即擴縮後的大小）<br /> Dim objG As Graphics = Graphics.FromImage(objBmp) '載入objG的操作畫布objBmp<br /> objG.Clear(Color.White) '背景設為白色<br /> objG.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBilinear '高品質<br /> objG.DrawImage(objCtrl.Image, New Rectangle(0, 0, CInt(intWidth * dblWidthRate), CInt(intHeight * dblHeightRate)))<br /> objCtrl.Image = objBmp<br /> End Function