如何给VB.NET窗体添加子窗体？

直接添加一个MID父窗体或在已有窗体的属性中找到IsMDIContainer属性，然后设置为True，然后创建第二个窗体 ，需要加载子窗体的时候：

Dim NewMDIChild As New Form2

NewMDIChild.MdiParent = Me

NewMDIChild.Show()

Public Shared Sub CheckMDIChildForm(ByVal MDIForm As Windows.Forms.Form, ByVal MDIChildForm As Windows.Forms.Form, ByVal MDIChildFormName As String)

        If MDIForm.MdiChildren.Length < 1 Then

            '如果没有任何一个MDI子窗体，则创该MDI子窗体的窗体实例

            Dim MDIChildFrm As Windows.Forms.Form = MDIChildForm ' 定义MDI子窗体

            MDIChildFrm.MdiParent = MDIForm '指定父窗体

            MDIChildFrm.Show() '打开窗体

            Exit Sub

        Else

            Dim x As Integer

            Dim frmyn As Boolean

            For x = 0 To (MDIForm.MdiChildren.Length) - 1

                Dim tempChild As Windows.Forms.Form = CType(MDIForm.MdiChildren(x), Windows.Forms.Form)

                If tempChild.Name = MDIChildFormName Then

                    '检测到有该MDI子窗体，设为激活 并退出循环

                    frmyn = True

                    tempChild.BringToFront()

                    Exit For

                Else

                    frmyn = False

                End If

            Next

            If Not frmyn Then

                '在打开的窗体中没检测到则新建

                Dim MDIChildFrm As Windows.Forms.Form = MDIChildForm ' 定义MDI子窗体

                MDIChildFrm.MdiParent = MDIForm '指定父窗体

                MDIChildFrm.Show() '打开窗体

            End If

        End If

    End Sub

首先要添加两个窗体，假设第一个窗体名为Form1，第二个窗体名为Form2。

在Form1窗体中添加个按钮Command1。按钮单击事件的代码为：

Private Sub Command1_Click()

Form2.Show//用show方法加载并且显示名为Form2的窗体

End Sub

show 方法后面省略了两个参数即Form2.Show 0或Form2.Show 1此参数可缺省。

扩展资料

VB窗体的三个基本概念：

编VB程序首先要创建一个良好的可视化界面。每个程序界面是由窗体(Form) 和一些必要的控件元素(Control) 构成的。由于VB属于面向对象编程，所以一般将窗体与控件都称为对象。

需要先了解一下三个基本概念：对象的属性、方法和事件。

属性：指对象(窗体,控件)的大小、颜色、方位等一系列外观或内部构造的特征。

方法：指对象(窗体,控件)所进行的 *** 作。

事件：指对象(窗体,控件)对外部条件的响应。

现今的Windows视窗 *** 作系统，与以前Dos最显著的区别就是其拥有一个为用户所能接受的图形界面。在这个可视化的图形界面中，户能方便地使用多个程序，而这一切就象在针对一个个窗口进行 *** 作。

1、添加一

BackGroundWorker

控件（类似于一后台进程），在调用构造函数的时候开始取数据，取完了赋值上去。

2、在一个Module中先定义窗体。

3、设置Module为启动

4、在Module

输入以下

Sub

Main()

FrmMain

=

New

_Main

FrmMain.Show()

End

Sub

---