机房，MDI窗体

一。 MDI窗体打开新的窗体关闭原先的窗体：

Private Sub Form_Deactivate()       '当不是活动窗体的时候，窗体卸载。
    Unload Me
End Sub

二。MDI窗体打开新的，原先窗体最小化：

Private Sub Form_Deactivate()
    If Me.WindowState <> 1 Then
        Me.WindowState = 1
    End If
End Sub

三。MID窗体不能设置属性居中，就用代码了：

Private Sub Form_Load()
Me.Left = (MDIForm1.Width - Me.Width) / 2
Me.Top = (MDIForm1.Height - Me.Height) / 2

四：怎么让其他窗体不跑出主窗体讷：

用MDI建立主窗体，其他的设置成MDI的子窗体。（子窗体设计方式：只要把窗体的属性MDIChild设置为true就。）

五：控件无法显示在MDI窗台上：

往MDI主窗体放picture控件，然后再画上自己要的控件

六：控件无法改变大小：

看菜单栏上，格式——锁定控件，点击一下即可。

七：背景窗体会存在，不会消失且窗体正常调用：

要用API函数。先在模块定义：

Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

然后在各个对应的菜单单击选项下写上： 

Private Sub up_Click()
SetParent frmStuInfoMain.hwnd, Picture1.hwnd '不会被遮挡，从而让调用的窗体正常显示。hwnd是句柄，相当于人的身份证。用来标识或者切换到对象。
Load frmStuInfoMain '加载
frmStuInfoMain.Show
End Sub



或者：
Private Sub x_Click()
SetParent frmAddConsumer.hwnd, MDIForm1.hwnd 
Load frmAddConsumer
frmAddConsumer.Show
End Sub

八：调用新窗体，原先窗体自动关闭：

Private Sub Form_Deactivate()      '不是活动窗体时，窗体卸载
    Unload Me
End Sub