窗体主体节随时隐藏小示例

时　间:2011-08-05 23:23:48
作　者:风行   ID：16058  城市：江阴
摘　要:窗体收起展开小示例
正　文:

点击下载此附件

 Private Sub cmdResize_Click()
    Me.Section(acDetail).Visible = (Not Me.Section(acDetail).Visible)
    If Me.Section(acDetail).Visible Then
        Me.cmdResize.Caption = "收起↑"
        Me.InsideHeight = Me.Section(acDetail).Height + Me.Section(acFooter).Height
    Else
        Me.cmdResize.Caption = "展开↓"
        Me.InsideHeight = Me.Section(acFooter).Height
    End If
End Sub