动态扩展视觉基本形式

Question

我有一个最简单的问题。我有一个可视化的基本形式，但是当我展开它时，没有任何字段或文本随窗口扩展。我想知道如何制作它，以便当有人最大化或扩展桌面上的窗口时，表单会动态扩展。有人请指教，谢谢！

Answer 1

每个控件都具有属性VerticleAnchor和HorizontalAnchor。

这些可以向左或两者（顶部或底部为垂直），如果是left和top（默认），它们会保持距离顶部和左侧的距离。将它们更改为right和bottom可以保持距离右侧和底部的距离。 Both调整控件的大小，使其与窗体调整大小时具有相同的间距。

另外，CanGrow和CanShrink true为If CurrentProject.AllForms("frmFMEA_PartA").IsLoaded Then Dim DatasheetW As Double Dim DatasheetH As Double Dim FormW As Double Dim FormH As Double DatasheetW = Me.frmFMEA_PartB_Subform.width FormW = Me.WindowWidth DatasheetH = Me.frmFMEA_PartB_Subform.Height FormH = Me.WindowHeight 'MsgBox FormH 'MsgBox DatasheetH Me.frmFMEA_PartB_Subform.width = IIf(FormW - 360 > 0, FormW - 360, 1) '390 Me.frmFMEA_PartB_Subform.Height = IIf(FormH - 3405 > 0, FormH - 3405, 1) '3195 Me.text.Left = IIf(FormW - 2340 > 0, FormW - 2340, 1) Me.text_Logo.Left = IIf(FormW - 2340 > 0, FormW - 2340, 1) End If Exit_Form_Resize: Exit Sub Err_Form_Resize: MsgBox Err.Description Resume Exit_Form_Resize End Sub ，以允许他们使用表单调整大小。

希望有所帮助！

修改

以下是我的前任使用事件进行的一些代码：

Private Sub Form_Resize（） On Error GoTo Err_Form_Resize

{{1}}

因为你可以看到很多数学，试验和错误，所以我尝试使用表单级属性来做，但这可能会产生一些想法。