Формы и элементы управления

Вопрос

Как в VB можно какой-нибудь объект привязать к форме, чтобы он растягивался вместе с ней? Приведите код или свойство.

Ответ

Наверное, ты хочешь, чтобы пропорционально менялись не только размеры, но и положение элемента. Возьем, например, кнопку. В декларациях объявляешь

Private kX As Single, kY As Single

Private kLeft As Single, kTop As Single

При загрузке формы высчитываешь коэффициенты, а при изменении размеров формы изменяешь размеры и положение кнопки в соответствии с этими коэффициентами.

Private Sub Form_Load() kX = Form1.Width / Command1.Width kY = Form1.Height / Command1.Height kLeft = Form1.Width / Command1.Left kTop = Form1.Height / Command1.Top End Sub Private Sub Form_Resize() Command1.Width = Form1.Width / kX Command1.Height = Form1.Height / kY Command1.Left = Form1.Width / kLeft Command1.Top = Form1.Height / kTop End Sub

Из конференции Expert_FAQ