Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Олимпиады

Страница: 1 |

 

  Вопрос: НЕ дайте сгинуть!! Добавлено: 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 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам