| Вопрос: НЕ дайте сгинуть!! | Добавлено: 13.04.04 16:52 |
Автор вопроса:  Робинович
|
|
Как сделать рисайз пикчи на форме с сохр масштаба(как на WMP при просмотре фильма).Просто, но у меня неклеется. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Vilya ICQ: 232995216 Вопросов: 12 Ответов: 63 |
Web-сайт: Профиль | | #1 | Добавлено: 13.04.04 23:55 |
|
'Вот тебе на примере формы 'Думаю разберёшься как с PictureBox'ом Option Explicit Dim Otnosh Private Sub Form_Load() 'Считаем начальное отношение Otnosh = Form1.Height / Form1.Width End Sub Private Sub Form_Resize() 'Если вдруг отношение стало больше начального, 'то значит Height стал больше и поэтому выравниваем Width 'исходя из начального отношения 'то же делаем с Width If Form1.Height / Form1.Width > Otnosh Then Form1.Width = Form1.Height / Otnosh Else Form1.Height = Form1.Width * Otnosh End If End Sub |
||
|
Номер ответа: 2 Автор ответа:  Робинович Вопросов: 7 Ответов: 7 |
Профиль | | #2 | Добавлено: 17.04.04 10:22 |
|
Спсибо! |
||
Страница: 1 |