机房重构——父窗体、子窗体的显示

第一次机房重构的时候就遇到这个问题，这是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属性中插入一张图片。

【总结】

其实要达到一种效果有很多种的方法。