如何给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

vb中有例子，你可以尝试自行研究。

方法：工程

－

添加窗体

－

选项对话框。这个选项对话框已经有相关的应用代码。

不过你可以尝试人性化的自定义。方法：

工程

－

部件

－

microsoft

windows

common

controls

*.*

点解tabstrip图标，添加到窗体。

右键点击tabstrip，选择属性，对tabstrip进行自定义。

点击选项卡，在标题栏填写类似新建、现存、最新等名字。如果需要添加选项卡，可以点击插入选项卡按钮

实现点击切换：我比较喜欢在窗体中添加frame，点击选项卡则显示相应的frame。例如：

private

sub

tabstripsite_click()

'设置选项卡点击显示情况

for

counter

=

0

to

tabstripsite.tabs.count

-

1

'从0开始计算判断所点击的选项卡

select

case

tabstripsite.selecteditem.caption

'判断选中的选项卡的标题栏（caption）的值

case

frasitebasic.caption

frasitebasic.visible

=

true

'设置visible状态

frasiteowner.visible

=

true

frasitelocal.visible

=

false

frasitepower.visible

=

false

case

frasitelocal.caption

frasitebasic.visible

=

false

frasiteowner.visible

=

false

frasitelocal.visible

=

true

frasitepower.visible

=

false

case

frasitepower.caption

frasitebasic.visible

=

false

frasiteowner.visible

=

false

frasitelocal.visible

=

false

frasitepower.visible

=

true

end

select

next

end

sub

＝＝＝＝＝＝＝＝＝＝

希望能帮上一点忙

---