主窗体设计

主窗体设计

           首先说明什么是MDI窗体，我就犯了一个很二的错误，直接添加了一个窗体把窗体上的所有东西都设计好了，最后发现想把它变成MDI窗体，总是实现不了，一查发现，这个窗体是固有的，不是自己自定义添加的。

           添加MDI窗体，在工程中第二个即为添加MDI窗体，而且，一个工程中只允许有一个MDI窗体，如果添加了一个之后就不可以添加第二个，这一项就会变为灰色，不可用。

           在MDI窗体上是无法直接添加控件的，添加的控件需要一个容器，因此，先添加一个picture控件，然后再在picture控件中添加各种控件，即可。

          子窗体的显示问题，主窗体设计好了之后，把其他所有的窗体的MDIchild属性设置为true，login登陆窗体的MDIchild属性不可以设置为true否则会报错，如下

                                      

          调试报错，flogin.show vbmodal，所以不要把login窗体的MDIchild属性设置为true即可，这里在类模块中把登陆窗体抽象为模式的，如果没有抽象出来的话，应该也可以设置为MDIchild窗体。

第一种显示子窗体的方法，即在MDI窗体的所有MDIchild单击事件中，添加代码Picture1.Visible= False，以frmabout窗体为例如下

Private Subfrmaboutmenu_Click()

frmAbout.Show

Picture1.Visible = False

End Sub

            但是这样的效果并不好，只能显示菜单项，MDI窗体中的所有的其他内容都无法显示出来，因为MDI窗体上的所有控件和外观的设计都是添加在picture控件中的，所以一旦picture控件不可见，其上所添加的所有东西都不可见，效果如下

            第二种显示子窗体的方法，使用SetParent 函数，在类模块中添加该函数，然后在MDI窗体的MDIchild窗体的单击事件中添加代码，以frmabout窗体为例，但是会报错，如下

Private Subfrmaboutmenu_Click()

frmAbout.Show

SetParent frmAbout.hWnd,frmmain.hWnd

End Sub

解决办法，把代码改为如下所示，结果嘛就是perfect了。

Private Subfrmaboutmenu_Click()

frmAbout.Show

SetParent frmAbout.hWnd, Picture1.hWnd

End Sub