Вопрос : Быстро дорога изменить размеры формы и управление?!

Мы имеем большое средство программирования быть сделанным в WinForm VB 2008 конструированном с формами 1280X1024. Предыдущая версия нашего средства программирования работала на экранах 1024X768. Теперь, мы модернизируем тех клиентов с более новым вариантом, но touch-screen (это будет врезанным промышленным компьютером) не поддерживает разрешение 1280X1024 (оно что-то, котор мы совсем пропустили перед давать продвижение для подъема). Так, мы должны изменить размеры все формы и управление, и дистанционирование между каждым управление, для того чтобы поместить поверхность стыка 1280 в 1024.

We решенные, что сделали новую версию и экземпляр/затир все управление и закодировали и ручно изменили размеры целые вещи (будут много формы и управление…) примет очень много время. Идеально, мы должны иметь одиночный вариант которые поддерживают оба разрешения, по мере того как обслуживание обоих вариантов быстро станет nightmare.

Anyone имеет идею как мы smogли автоматически изменить размеры формы и управление, зависеть разрешения? Получать самое лучшее разрешение графической карточки не будет проблемой, будет изменять размеры форм и управление который дают нам

thanks головной боли… для ваших времени и help class=

Ответ : Быстро дорога изменить размеры формы и управление?!

Я всегда делал мое управление re-sizable к любому разрешению просто путем снабжать случай form_resize. Вместо использования фикчированных положений, высчитайте их в этом случае. Не задайте верхнюю часть, ширину, высоту, величины постоянные etc - используйте серию формулы для того чтобы высчитать насколько космоса имеющиеся, и их соответственно положениями должны быть relative to один другого.

Он примет меньшему усилию этот первый раз, в виду того что вы ремонтируете план UI, но поже то вы никогда не будете тревожиться о проблемах разрешения снова.

Я прикреплял пример.

--
Alain

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38:

Const ListboxPadding = 1 Const ButtonPadding = 3 Const MinHeight = 100 Const MinWidth = 520 Приватное Sub UserForm_Resize () С ButtonSearchBasic . Верхняя часть = Me.InsideHeight - ButtonPadding * 2 -. Высота Конец с С ButtonSearch1 . Верхняя часть = Me.InsideHeight - ButtonPadding * 2 -. Высота Конец с С ButtonSearch2 . Верхняя часть = Me.InsideHeight - ButtonPadding * 2 -. Высота Конец с С ButtonExit . Верхняя часть = Me.InsideHeight - ButtonPadding -. Высота . Левая сторона = Me.InsideWidth - ButtonPadding -. Ширина Конец с С ButtonFillOverwrite . Верхняя часть = Me.InsideHeight - ButtonPadding -. Высота . Левая сторона = Me.InsideWidth - ButtonPadding * 4 -. Ширина - ButtonExit.Width Конец с С ButtonFillEmpty . Верхняя часть = Me.InsideHeight - ButtonPadding -. Высота . Левая сторона = Me.InsideWidth - ButtonPadding * 6 -. Ширина - ButtonFillOverwrite.Width - ButtonExit.Width Конец с С ResizeGrab . Левая сторона = Me.InsideWidth -. Ширина . Верхняя часть = Me.InsideHeight -. Высота Конец с С ResultList . Верхняя часть = ListboxPadding . Левая сторона = ListboxPadding . Высота = Me.InsideHeight - 2 * ButtonPadding - ButtonExit.Height -. Верхняя часть . Ширина = Me.InsideWidth -. Лево - ListboxPadding Конец с Подводная лодка конца