如何在不溢出其他控件的情况下更改控件高度

【问题标题】：how to change control height without overflow the other controls如何在不溢出其他控件的情况下更改控件高度
【发布时间】：2013-12-15 14:44:51
【问题描述】：

我有一个包含 20 个相互平行的文本框的访问表单，我使用多选列表框向它们添加数据，问题是它们在我的表单上有很大的空间，我不想要所有这些我只是需要不为空的字段，所以我想通过仅显示不为空的字段来减少一些空间，并通过将它们彼此靠近并使它们的高度等于零来隐藏所有其他字段

 If Len(Me.Text0.Value & vbNullString) = 0 Then
 Me.Text0.Height = 0
 else
 Me.Text0.Height = 100
 End if

，所以当我更新这些字段中的任何一个时，它的高度会从零变为特定高度，但在这种情况下，如果我有多个字段不为空，它们会相互溢出，我看不到每个字段的数据，任何建议??

【问题讨论】：

这并不能回答您的问题，所以我将其添加为评论，但是您是否考虑过使用 Tab 控件？如果表单中的数据输入控件过多，无法轻松适应，则使用 Tab 控件可以使内容看起来更整洁。

标签： ms-access ms-access-2007 vba

【解决方案1】：

如果这是一份报告，我会说使用Report.CanShrink 属性...

但是，在 form 上，您需要遍历可折叠的 ListBoxes 并根据需要折叠它们，然后在 ListBox-collapsing 循环中遍历所有后续ListBoxes 并从Top 中扣除折叠列表框的Height，并从表单部分的Height 中扣除折叠列表框的Height。

在执行所有这些操作时关闭屏幕更新（DoCmd.Echo False...代码...DoCmd.Echo True）可能会有所帮助。

【讨论】：