主窗体设计
首先说明什么是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