ms-access - 通过更改 Detail.Height 在 MS Access 中调整表单大小

Question

我希望用户能够在表单 View 中通过单击按钮来更改表单的高度:

Private Sub btnChangeHeight_Click()

    booTall = Not booTall

    If booTall Then
        lngHeight = 12400   ' (twips)
    Else
        lngHeight = 1200
    End If

    Me.Detail.Height = lngHeight
    Me.Repaint

    Debug.Print Me.Detail.Height

End Sub

高度改变——Debug.Print 是这样说的，当booTall 为True 时出现垂直滚动条。 但表单不会改变其在屏幕上的垂直尺寸。

我也试过这个，但没有成功(确保我的按钮在表单标题上):

    Me.Detail.Visible = booTall

解决方案似乎取决于 Form 和 Form Detail 部分的属性:Resizable、Auto Height、也许 Can Grow 等.但是我摆弄了那些但没有任何效果。

我知道重叠的控件和其他东西会阻止高度调整，所以我将表单缩减为最小布局。我使用的是 Access 版本 2007/2010。

一些额外的信息:我实际上正在做的是两个子表单，上面的 (A) 和下面的 (B)，它们可以独立地折叠到 View 之外或展开。这是一个包含大量数据的决策表。我想如果我折叠 (A) 或 (B) 的高度，Detail 的 CanShrink 属性会导致整个表单尺寸发生变化。事实上，我想我在几年前使用 Access 2003 做到了这一点。至于使用 Maximize ...我们将此表单设置为可重复使用，可以打开多个实例。

Answer 1

“...在表单 View 中通过单击按钮更改表单的高度”

使用表单的.Move 方法来改变表单的大小。此示例将我的表单高度在 4044 和 8000 缇之间切换。

Private Sub btnChangeHeight_Click()
    Dim lngHeight As Long

    If Me.WindowHeight = 4044 Then
        lngHeight = 8000
    Else
        lngHeight = 4044
    End If
    Me.Move Me.WindowLeft, Height:=lngHeight
End Sub