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

来源:互联网 发布:淘宝店铺装修特效 编辑:程序博客网 时间:2024/06/11 17:38

第一次机房重构的时候就遇到这个问题,这是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 FunctionEnd class
MDI——单例模式

用了单例模式感觉反而没有用单例模式来的简单,以后还是要继续研究单例模式。


其实还有另一种方法也可以,不用任何控件,直接把frmMain窗体设置为父窗体就可以了,上面可以添加PictureBox控件来设置界面。


在.NET中,还可以直接把FrmMain的BackgroundImage属性中插入一张图片。

【总结】

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





阅读全文
0 0
原创粉丝点击