时　间:2020-11-17 08:54:26
作　者:胡康康   ID：77155  城市：徐州
摘　要:代码控制窗体中的子窗体自适应窗口大小​。
正　文:

窗体大小属性

1. width：窗体内部宽度，不包括滚动条和记录选择器
2. height：无此属性。（Height属性只应用于窗体节，而不是窗体）。应等与Me.Section(acHeader).Height + Me.Section(acFooter).Height+Me.Section(AcDetail).height
3. InsideWidth：包含窗体的窗口的宽度
4. InsideHeight：包含窗体的窗口的高度

代码控制窗体中的子窗体自适应窗口大小

Private Sub Form_Resize()
    On Error Resume Next
    Dim lngHeight As Long
'sfrList表示子窗体
    Me.sfrList.Width = Me.InsideWidth - Me.sfrList.Left
    lngHeight = Me.InsideHeight
    lngHeight = lngHeight - Me.Section(acHeader).Height - Me.Section(acFooter).Height
    Me.sfrList.Height = lngHeight - Me.sfrList.Top
End Sub