窗体大小属性
-
width:窗体内部宽度,不包括滚动条和记录选择器
-
height:无此属性。(Height属性只应用于窗体节,而不是窗体)。应等与Me.Section(acHeader).Height + Me.Section(acFooter).Height+Me.Section(AcDetail).height
-
InsideWidth:包含窗体的窗口的宽度
-
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