- Код: Выделить всё
Dim iDiv As Single
imgCalc.Picture = LoadPicture(rpPath) 'rpPath - путь к файлу
If imgCalc.Width > imgCalc.Height Then
iDiv = Round(imgCalc.Width / imgCalc.Height, 2) 'узнаём отношение сторон с точностью до 2 знаков после запятой
imgImage(rpIndex).Height = imgImage(rpIndex).Width \ iDiv 'rpIndex - индекс Image'a в массиве. У imgImage включен Stretch.
Else
iDiv = Round(imgCalc.Height / imgCalc.Width, 2)
imgImage(rpIndex).Width = imgImage(rpIndex).Height \ iDiv
End If
imgImage(rpIndex).Picture = imgCalc.Picture
Теперь разъясняю
. Сначала я гружу искомую картинку в Image под названием imgCalc. Image после этого принимает размеры картинки. Потом я узнаю отношение сторон. Далее, в зависимости от того, что больше - ширина или высота, подгоняю соответсвующее свойство у imgImage, у которого включено св-во Stretch.
А теперь вопрос: можно сделать это всё более рационально, например, узнать размер искомой картинки не загружая её в Image (если мне не изменяет склероз, я даже где-то такую апишку видел... А может и не видел
)
