Масштабирование интерфейса

[PLA]

Как в профессиональные разработчики на VB добиваются, что бы при изменение размера формы изменялись положение и/или размер контролов на форме.

[Amed]

Обрабатывают Form_Resize.

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

Private Sub Form_Resize()
    Command1.Move Form1.ScaleWidth - Command1.Width - 50,50
    Command2.Move Command1.left, Command1.Height + 100
End Sub

Для каждого контрола на форме

[vvs_adm]

AmedНе, так новички Профессиональные делают сабклассинг

[PLA]

AmedНе, так новички Профессиональные делают сабклассинг

А с помощью сабклассинга легче?
Тяжело как то для каждого контрола высчитывать где он должен находиться и его размер.
А нельзя попроще? Для каждого контрола высчитывать новое положение задача не из легких. Когда добавляешь элементы на форму, как то не задумываешься об его ширине, длине в пикселях и об координатах на форме. Что бы это учитывать нужно сделать таблицу с координатами при стандартном размере форме и менять эти данные в зависимости от Resize.
Я понимаю, что VB не знает где должен находится контрол при изменение размера. Но наверняка есть стандартный алгоритм. Например при увеличение ширины, у всех контролов увеличивается ширина на одинаковый коэффициент и относительно линии центра формы отношения остаются те же.

[Amed]

Каждый программист решает эту задачу по-своему.

Опишите внешний вид программы. Тогда советы будут не абстрактные, а практические.

Еще лучше - скриншот.

[alibek]

Можно и полегче.
Купи компонент Olectra Resizer.

[Amed]

Надо в предыдущий пост вставить 2 смайлика ';)': после "купи" и после точки.

[PLA]

Опишите внешний вид программы. Тогда советы будут не абстрактные, а практические.
Еще лучше - скриншот.

Ok.

[PLA]

Olectra Resizer - это мысль.

А Вы это используете? Нравится?

[alibek]

Нет, я кодирую руками.
Но Olectra Resizer достаточно качественный продукт.

[VAngel]

А как можно реализовать так что бы при хватании мышкой за край можно было изменить размер контрола, скажем кнопки?

[dimix]

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

Может я чего не понял, но почему нельзя использовать

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

Command1.Width = Command1.Width + 100

?
Хочешь коэффициент - ну не прибавляй, а умножай на коэффициент. Стало окно шире в 1.24 раза - умножь Width контрола на 1.24. Относительно линии центра - взяли Width формы и поделили на 2 - вот тебе и центр, пляши от него.

[vvs_adm]

Может я чего не понял, но почему нельзя использовать

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

Command1.Width = Command1.Width + 100

?
Хочешь коэффициент - ну не прибавляй, а умножай на коэффициент. Стало окно шире в 1.24 раза - умножь Width контрола на 1.24. Относительно линии центра - взяли Width формы и поделили на 2 - вот тебе и центр, пляши от него.

Ну так помимо .width изменять надо и .left и .top Вот человек и спрашивает, по какой формуле ему изменять эти параметры Хотя все-таки для каждой формы тут "вручную" считать надо. Например кнопку "Пуск" в правом нижнем углу вполне достаточно оставлять в правом нижнем углу, т.е. изменять только .left и .top А вот некоторые элементы нужно и по ширине менять...

To PLA Но если ты хочешь именно пропорционально изменять размер всей формы, то тебе нужно запомнить стартовые .left .top .width для всех контролов и для формы, а в форм_ресайзе

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

For Each cntrTemp in Form.Controls
    cntrTemp.NewSize=cntrTemp_StartSize*Form_NewSize/Form_StartSize
Next cntrTemp

[SHURUP]

ИМХО:
Если такая форма, как в атачменте - то все контролы ресайзить - чушь. Ресайзиться должна только рабочая область (грид, листвью или текстбокс).
Толку от кнопки пропорционального изменения "ОК"??
Может еще и шрифт менб при увеличении формы - увеличивать?
Тут лучше использовать несколько пикчербоксов со свойствами "align"
А оставшуюся часть заполнить главным контролом.
.
Единственно, что кнопку "Выход", можно привязать к ширине формы и ограничить минимально-возможный размер окна.

[CORBA]

Для данного случая ИМХО лучше сделать две процедуры ресайза для состояния формы vbNormal и vbMaximized, а все остальные преобразования формы запретить.

[SHURUP]

CORBA, не согласен. Очень раздражает, когда список нужно скролить, когда в тоже время окно занимает только четверть экрана.