vb.net多pictureBoxes，寬度相同，保持縱橫比

Question

我有一個名爲fWidth全局變量是目前300

我設置pictureBox.width = fWidth，但我想要做的事像pictureBox.height = calcImgHeight（originalHeight，originalWidth）

這是哪裏出了問題進來，因爲我在可怕的數學：d

Private Function calcImgHeight(oHeight, oWidth) 
    Dim nHeight, ratio As Integer 
    ratio = oWidth/fWidth 
    nHeight = oHeight/ratio 

    Return nHeight 
End Function 

瓦在應該正確的代碼是？

Answer 1

我敢打賭，我在數學比你差，幸好我擅長使然。

http://andrew.hedges.name/experiments/aspect_ratio/

原來的高度/原始寬度X新的寬度=新高度