У меня есть глобальная переменная 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
Каким должен быть правильный код?
