在加载事件和调整代码事件中分别写入了以下代码:
Private Sub Form_Load() ' 加载
Me.Orders.Width = Me.Form.InsideWidth - 2 * Me.Orders.Left
Me.Orders.Height = Me.Form.InsideHeight - 510
End Sub
Private Sub Form_Resize() ' 调整大小
If Me.Form.InsideHeight > 3000 Then ' 父窗口小于某值时停止,不然会出错
Me.Orders.Width = Me.Form.InsideWidth - 2 * Me.Orders.Left
Me.Orders.Height = Me.Form.InsideHeight - 510
End If
End Sub
点击下载此附件