Как мне перерисовать форму после нажатия на кнопку «Развернуть»? - PullRequest
Новая
       24

Как мне перерисовать форму после нажатия на кнопку «Развернуть»?

3 голосов
/ 03 апреля 2012

В VB6 я создал форму с несколькими текстовыми полями, списками и командными кнопками.Я устанавливаю XY-позиции всех этих элементов управления, используя что-то вроде 

control2.Top = form.Height * 0.50   'sets the Y-position
control2.Left = form.Width * 0.35   'sets the X-position

control3.Top = form.Height * 0.50
control3.Left = form.Width * 0.45

. Однако, когда я нажимаю кнопку «Развернуть» в моем приложении, все элементы управления остаются на том же месте, но смещаются немного больше в сторонуверхний левый угол формы.Между тем, нажатие на кнопку «Развернуть» также создает много пустого пространства в правом нижнем углу формы.

Как сделать так, чтобы нажатие на кнопку «Развернуть» (ту, которая выглядит как пустой квадрат)в правом верхнем углу) сообщает моей программе, что форма. Высота и форма. Вес изменился, и что все должно быть перерисовано?

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

1 Ответ

9 голосов
/ 03 апреля 2012

Ваша форма имеет событие под названием «Изменить размер».Это событие вызывается каждый раз при изменении размера формы. 

Private Sub Form_Resize()
    'Insert your code here
End Sub
...