VB.NET MDI 窗体

2025年3月17日 | 阅读 3 分钟

MDI 代表 多文档界面 应用程序，它允许用户一次打开多个文档来处理多个文档。而 单文档界面 (SDI) 应用程序一次只能操作一个文档。

MDI 应用程序在窗体中充当父子关系。父窗体是一个包含子窗体的容器，而子窗体可以有多个，以在父窗体中显示不同的模块。

VB.NET 具有以下规则，用于将窗体创建为 MDI 窗体。

MidParent: MidParent 属性用于将父窗体设置为子窗体。
ActiveMdiChild: ActiveMdiChild 属性用于获取当前子窗体的引用。
IsMdiContainer: IsMdiContainer 属性设置一个布尔值 True，表示将窗体创建为 MDI 窗体。
LayoutMdi(): LayoutMdi() 方法用于在父窗体或主窗体中排列子窗体。
Controls: 它用于从子窗体获取控件的引用。

让我们创建一个程序，在 VB.NET Windows 窗体中显示多个窗口。

步骤 1： 首先，我们必须打开 Windows 窗体，并使用 MenuStrip 控件创建菜单栏，如下所示。

步骤 2： 创建菜单后，将 Subitems 添加到菜单栏中，如下所示。

在上面的图片中，我们定义了两个 Subitems，第一个是 Feedback Form，第二个是 VB.NET。

步骤 3： 在第三步中，我们将创建两个窗体：主窗体 或 父窗体 的子窗体。

在这里，我们创建了第一个名为 Form2 的子窗体。

Form2.vb

Public Class Form2
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = "Feedback form" ' Set the title of the form
        Label1.Text = " Fill the Feedback form"
        Button1.Text = "Submit"
        Button1.BackColor = Color.SkyBlue
        Button2.Text = "Cancel"
        Button2.BackColor = Color.Red
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MsgBox(" Successfully submit the feedback form")
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Dispose() ' end the form2
    End Sub
End Class

另一个名为 Form3 的 子窗体。

Form3.vb

Public Class Form3
    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label1.Text = "Welcome to JavaTpoint Tutorial Site"
        Label.BackColor = Color.Green
        Label2.Text = "This is the VB.NET Tutorial and we are learning the VB.NET MDI Form"
        Label2.BackColor = Color.SkyBlue
    End Sub
End Class

步骤 4： 现在我们编写主窗体或父窗体的程序代码，这是我们主窗体的代码。

MDI_form.vb

Public Class MDI_Form
    Private Sub MDI_Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        IsMdiContainer = True 'Set the Boolean value to true to create the form as an MDI form.
        Me.Text = "javatpoint.com" 'set the title of the form
        PictureBox1.Image = Image.FromFile("C:\Users\AMIT YADAV\Desktop\jtp2.png")
        PictureBox1.Height = 550
        PictureBox1.Width = 750
    End Sub
    Private Sub FeedbackFormToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FeedbackFormToolStripMenuItem.Click
        PictureBox1.Visible = False
        Dim fm2 As New Form2
        fm2.MdiParent = Me 'define the parent of form3, where Me represents the same form
        fm2.Show() 'Display the form3
    End Sub
    Private Sub VBNETToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VBNETToolStripMenuItem.Click
        PictureBox1.Visible = False
        Dim fm3 As New Form3
        fm3.MdiParent = Me 'define the parent of form3, where Me represent the same form
        fm3.Show() 'Display the form3
    End Sub
End Class

输出