Forms 动态扩展visualbasic窗体

我有一个很可能是简单的问题。我有一个VisualBasic表单，但当我展开它时，没有任何字段或文本随窗口展开。我想知道如何使它这样的形式动态扩展时，有人最大化或扩展桌面上的窗口可以有人请建议谢谢

每个控件都具有属性

VerticleAnchor

和

HorizontalAnchor

它们可以是左右或两者（垂直的顶部或底部），如果是

left

和

top

（默认值），则它们与顶部和左侧保持这些距离。将它们更改为

右侧

和

底部

保持它们与右侧和底部的距离

Both

调整控件的大小，使其与窗体调整大小时的间距相同

同时双击

CanGrow

和

CanShrink

是否为

true

，以允许它们根据表单调整大小

希望有帮助

编辑：

下面是我的前任的一些代码，这些代码使用事件执行此操作：

私有子表单_Resize（） 错误时转到错误窗体调整大小

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

---

正如你所看到的，这需要大量的数学运算、尝试和错误，因此我尝试使用表单级属性来完成，但这可能会产生一些想法。

你能发布一些方法/代码吗？嘿，伙计，实际上没有任何方法，表单中的控件是GUI控制器，因此没有代码。我所拥有的只是我的表格，它是一系列复选框、按钮、文本框、标题和标签，当我按照下面的建议设置Anchor属性时，它们会无边界地相互渗透。嘿，首先非常感谢您的快速回答，尽管这并没有解决我的问题。现在，当我展开时，场开始相互重叠，变得非常糟糕。如果你真的想挑剔的话，我想会有一个关于调整大小的事件，你可以根据它改变控制位置和宽度。我从来没有这样做过，但这可能是下一步要考虑的事情我不知道，我有麻烦他们都在互相扩展，没有什么可以阻止他们重叠所有的地方。看看我的编辑，这是一种不同的方式来处理它使用的raww代码，而不是锚。