点击下载附件

 

 

 

'写在窗体调整事件过程中

Private Sub Form_Resize()

    On Error Resume  Next

    Me.子窗体1.Width = Me.InsideWidth

    Me.子窗体1.Height = Me.InsideHeight - Me.Section(acHeader).Height - Me.Section(acFooter).Height

End Sub