如何向圖片大小調整代碼添加約束？即不大於165x146

Question

如何爲圖片大小調整代碼添加約束？我希望圖像不會超過165x146。下面的代碼不保留約束當圖像是525x610

 intWidth = 165 '*** Fix Width ***' 
     intHeight = 146 '*** Fix Width ***' 

      If objGraphic.Width > intWidth Then 
       Dim ratio As Double = objGraphic.Height/objGraphic.Width 
       intHeight = ratio * intWidth 
       objBitmap = New Bitmap(objGraphic, intWidth, intHeight) 
      ElseIf objGraphic.Height > intHeight Then 
       Dim ratio As Double = objGraphic.Width/objGraphic.Height 
       intWidth = ratio * intHeight 
       objBitmap = New Bitmap(objGraphic, intWidth, intHeight) 
      Else 
       objBitmap = New Bitmap(objGraphic) 
      End If 

Answer 1

我認爲你想保持圖像的縱橫比？如果是這樣，這種方法可能是適當的;您需要按照您獲得的比例乘以寬度和高度。

'define max size of image 
intWidth = 165 
intHeight = 146 

'if the width/height is larger than the max, determine the appropriate ratio 
Dim widthRatio as Double = Math.Min(1, intWidth/objGraphic.Width) 
Dim heightRatio as Double = Math.Min(1, intHeight/objGraphic.Height) 

'take the smaller of the two ratios as the one we will use to resize the image 
Dim ratio as Double = Math.Min(widthRatio, heightRatio) 

'apply the ratio to both the width and the height to ensure the aspect is maintained 
objBitmap = New Bitmap(objGraphic, CInt(objGraphic.Width * ratio), CInt(objGraphic.Height * ratio)) 

編輯：可能需要新的高度和寬度顯式轉換爲整數