равномерное смещение объектов

[KAPRIZ]

Приветики, помогите мне пожалуйста

подскажите или покажите как сделать так чтобы элементы на форме при изменении размеров формы равномерно смещались: при уменьшении размеров к левому краю формы т.е к нулю, и в обратную сторону к первоначальному виду

формочка в файлике


спасибки

[alibek]

Обрабатываешь событие Form_Resize (исключая случаи с WindowState = vbMinimized), сдвигаешь (Move) в соответствии с шириной (ScaleWidth) и высотой (ScaleHeight) рабочей области.

[KAPRIZ]

а маааленький примерчик можно?

[alibek]

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

Private Sub Form_Resize()
If WindowState = vbMinimized Then Exit Sub
cmdClose.Move ScaleWidth - cmdClose.Width - 120, ScaleHeight - cmdClose.Height - 120
End Sub

Кнопка Close всегда будет в нижнем правом углу формы.

[KAPRIZ]

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

[alibek]

Ничего не понял.
Какая кучка?

[Twister]

Ты имеешь ввиду, чтоб расстояние между контролами сокращалось в зависимости от ширины формы? Если да, то руководствуйся принципом, который тебе дал Alibek, там на самом деле все очень просто, нужно лишь немного подумать...

[KAPRIZ]

Twister
ты прав это и имею ввиду
но в голову никакие мысли не лезут

[Twister]

Смотри:
Код Алибека выравнивает кнопку относительно левого края (те сдвигает так, чтобы кнопка была как можно правее, но при этом вся помещалась на форме). Сдвигай ее относительно другой точки и все. При этом точка должна зависить от ширины формы. Вот этот код будет центрировать кнопку:

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

cmd.Left=Form.Width/2-cmd.width/2

Как он работает? Form.Width/2 это середина формы. От носительно нее и будем двигать. Нам нужно чтоб середина формы совпадала с серединой кнопки. Для этого ширину кнопки разделим на 2 (правильно? ). И остается лишь сдвинуть кнопку на половину ее ширины относительно центра формы.
ВотЬ...

[alibek]

Form.Width

Неправильно это.
Использовать нужно клиентскую область (ScaleWidth).

[KAPRIZ]

что то получилось но как всегда не то что хочется
все получается нормально когда размеры имэджов одинаковы
кака только у одного или более имэджов размер оличается от остальных получается ерунда

что надо сделать еще чтобы работало нормально, как мне этого хочется?

[Twister]

2 alibek
Я знаю. Просто хотел быстрее написать...

2 KAPRIZ
Что это за строчки, типа

Image1(4).Left = (X1 / 1.38219895287958)

???
Смотри, в твоем случае алгоритм таков:
Получаешь ширину всех имаджей, вычитаешь это из ширины формы и делишь на количество имаджей.
Что это получилось? А получилось это расстояние между имаджами, при котором они все поместятся на форме и будут на одинаковом расстоянии друг от друга.

[Twister]

Создай новую форму. Назови ее frm. На нее положи три кнопки разной ширины. Назови их cmd1, cmd2 и cmd3. Ну а вот текст модуля формы:

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

Option Explicit

Private Sub Form_Load()
Form_Resize
End Sub

Private Sub Form_Resize()
Dim r As Integer
r = (frm.ScaleWidth - (cmd1.Width + cmd2.Width + cmd3.Width)) / 3
cmd1.Left = 30
cmd2.Left = cmd1.Left + cmd1.Width + r
cmd3.Left = cmd2.Left + cmd2.Width + r
End Sub

Я специально не сделал массив контролов, думая что так будет легче понять принцип...