| Вопрос: Размер формы на разных мониторах | Добавлено: 16.01.04 13:03 |
Автор вопроса:  volodiam
|
|
Облазил кучу сайтов,но так и не понял как на разных мониторах сделать форму пропорциональной.Приложение разрабатывается на 17" ,а потом запускается на 15".Форма искажается.Пробовал такой совет: Height = Screen.Height / Screen.TwipsPerPixelY Width = Screen.Width / Screen.TwipsPerPixelX For Each Control In Me Control.Left = Control.Left * Width / 800 Control.Top = Control.Top * Height / 800 Control.Width = Control.Width * Width / 800 Control.Height = Control.Height * Height / 800 Next Компилятор не понимает (видимо тут только часть кода) Как ещё сделать так,чтобы при уменьшении формы работать с scrollbar?Искал примеры,ни фига не нашёл! |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #1 | Добавлено: 16.01.04 15:07 |
|
Пока вижу одну ошибку. Вместо For Each Control In Me нужно For Each Control In Me.Controls Потом ещё скорее всего нужно в коде заменить Control на какое-нть другое имя (потому что Control - это название VB'шного класса), например, ctl, и ещё в начале объявить переменную: Dim ctl As Control На логику кода не смотрел, но в общем-то немного смущает использование цифры 800. Если имелась в виду ширина экрана, то стоит использовать Screen.Width. |
||
Страница: 1 |