第一次机房重构的时候就遇到这个问题,这是VB6.0时写的方法 机房收费系统—MDI窗体与子窗体
在机房重构的时候是用的VB.NET写的,其实还是可以利用原先的代码的。只是不能再用PictureBox控件了,因为它不是容器,在它上面放置的控件就会在子窗体上面出现。
●所以接下来就选择用另一个容器Panel
在模块中写上如下代码:
Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As Integer, ByVal hWndNewParent As Integer) As Integer
在需要的地方写上:
Private Sub 学生信息ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 学生信息ToolStripMenuItem.Click
SetParent(frmStudent.Handle, Panel1.Handle) '以Panel为父窗体,FrmStudent为子窗体
frmStudent.Show()
End Sub
这样就OK了
●上面的方法没有用单例模式,但是同时达到了单例模式的效果,如果用单例模式的话,
Private Sub 学生信息ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 学生信息ToolStripMenuItem.Click
'SetParent(frmStudent.Handle, Panel1.Handle) '没有用单例模式
'frmStudent.Show()
Dim from As frmStudent = frmStudent.GetInstance() '用了单例模式
from.Show()
SetParent(from.Handle, Panel1.Handle)
End Sub
Public Class frmStudent
Private Shared mdfstudent As frmStudent = Nothing
Private Sub New()
' 此调用是设计器所必需的。
InitializeComponent()
' 在 InitializeComponent() 调用之后添加任何初始化。
End Sub
Public Shared Function GetInstance() As frmStudent
If mdfstudent Is Nothing OrElse mdfstudent.IsDisposed Then
mdfstudent = New frmStudent
End If
Return mdfstudent
End Function
End class
MDI——单例模式
用了单例模式感觉反而没有用单例模式来的简单,以后还是要继续研究单例模式。
●其实还有另一种方法也可以,不用任何控件,直接把frmMain窗体设置为父窗体就可以了,上面可以添加PictureBox控件来设置界面。
●在.NET中,还可以直接把FrmMain的BackgroundImage属性中插入一张图片。
【总结】
其实要达到一种效果有很多种的方法。