Пропорциональность картинки в пикчербоксе.

[Гость]

Дело такое:
Есть пикчербокс, в него загружаются разные картинки с жесткого диска. Дело в том, что корректно отображаются только те картинки, которые пропорционально одинаковые с размерами пикчербокса. Т.е. другие картинки растягиваясь в пикчербоксе выглядят коряво.
Надеюсь понятно, о чем я говорю. Если вы сталкивались с такой же проблемой, то как вы ее решали?

[A.A.Z.]

другие картинки растягиваясь в пикчербоксе выглядят коряво

Растягиваясь? В PictureBox'е-то? Ты что, StretchBlt там используешь? Вообще, у PictureBox есть свойство AutoSize, а у Image - Stretch.

[Гость]

Ладно придераться а? Спутал пикчербокс и имейджем. Может кто поможет?

[ALX_2002]

А ты пробывал взять размеры высоты и ширины рисунка, а потом найти коэффициент отношения - высоту/ширину, а потом..... по идее высоту * K ?

Короче через коэффициент увеличивать пропорционально размеры.

[A.A.Z.]

58i, я не придираюсь, а пытаюсь помочь! У Image есть свойство Stretch, если его поставить в False, то картинка перестаёт растягиваться!
Если тебе нужно пропорциональное растягивание, то положи на форму Image и вставь код:

Код: Выделить всё

Dim Picture As StdPicture, H&, W&, R
Set Picture = LoadPicture("C:\0.bmp")
Do
R = InputBox("Введите, во сколько раз увеличить картинку")
Loop Until IsNumeric(R)
H = Round(Picture.Height * R)
W = Round(Picture.Width * R)
Image1.Stretch = True
Image1.Height = H
Image1.Width = W
Set Image1.Picture = Picture