随父窗体大小自动变化的子窗体一例

时　间:2008-06-26 10:33:17
作　者:zoutians   ID：995  城市：自贡
摘　要:在加载事件和调整代码事件中分别写入了以下代码：
正　文:

在加载事件和调整代码事件中分别写入了以下代码：

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

点击下载此附件