forms - 单击“最大化”按钮后如何重新绘制表单？

Question

在 VB6 中，我创建了一个带有一些文本框、列表框和命令按钮的表单。我使用类似

的方法设置所有这些控件的 X-Y 位置

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

但是，当我单击应用程序的“最大化”按钮时，所有控件都保持在同一位置，但向表单的左上角移动了一些。同时，单击“最大化”也会在表单的右下角创建大量空白区域。

我该如何做到这一点，以便单击“最大化”按钮(右上角看起来像一个空方 block 的按钮)通知我的程序 form.Height 和 form.Weight 已更改，并且所有内容都需要更改重画？

或者，是否有另一种方法可以做到这一点，以便我们消除所有控件向左上角的移动，并消除向右下角创建新的空白空间？预先感谢您的帮助。

Answer 1

您的表单有一个名为“调整大小”的事件。每次调整表单大小时都会触发该事件。

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