机房管理之MDI窗体

前端之家收集整理的这篇文章主要介绍了机房管理之MDI窗体前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

1.在MDI窗体上不能使用控件,需要用一个容器来放控件,比如使用pictureBox控件来当做容器,这时真能体会到巨人的力量,这时我查到了另外一种方法。用一个窗体做容器,把这些控件放到窗体上,前提是要把窗体设置为子窗体,把borderstype 设置为none,然后在MDI窗体加载的时候,子窗体也同时加载。

借鸡下蛋—MDI窗体显示无对齐属性控件
来自 http://www.jb51.cc/article/p-kpnjlfje-bcr.html

2.MDI窗体与子窗体的显示问题–(如何让主窗体是被控件挡住的子窗体显示
来自 http://www.jb51.cc/article/p-dercuymx-up.html

☆一个我认为很好的解决办法:
在主窗体中使用点击事件,前提是:用窗体来做MDI的容器。如果是pictureBox,那就可以不用看我下面的解释了。用一个窗体来当主窗体,当其变成活动窗体时,会让打开的子窗体最小化,这样就解决了字窗体被主窗体挡住的问题了。
思想如下:
(1)第一步,在模块中声明标志变量为布尔类型,大小为子窗体的数量

(2)第二步,在对应子窗体相互响应,同时,当窗体被关闭时,需要让该标志为假。添加如下代码
Private Sub Form_Load()
frmFlag(1) = True ‘判断窗体是否显示,与主窗体中相互响应
End Sub

Private Sub Form_Unload(Cancel As Integer)
frmFlag(1) = False ‘当窗体被关闭时,会将此标志重新赋值
End Sub

PS:VB窗体启动、关闭时涉及的主要事件,相信你看完之后,会想到其它不同的解决办法。来自 http://www.jb51.cc/article/p-gvbbssao-ug.html

(3)第三步,主窗体中添加代码;可以换成其他的事件,比如 click等都可以,下面只做一个窗体的展示。
‘当点击主窗体时,如果子窗体正在显示,那么就让它最小化
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
On Error Resume Next ‘这一行语句是为了保证不会有错误出现,也可以去掉。
If frmFlag(1) Then
basicData.WindowState = 1
End If
End Sub

最后,就可以尝试一下,看看效果如何。觉得效果不错的留下赞在走呗!有其它更好的方法,一定要留下。

猜你在找的VB相关文章