vb.netmdi子的简单介绍

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

相关问答

Q1: vb.net设置mdi子窗口随父窗口的大小而变化

简单一点vb.netmdi子的方式是vb.netmdi子，在MDI主窗体内添加一个picturebox控件，然后在这个picturebox中添加一个image控件。

Picture1vb.netmdi子的属性：

1.Align=top

2.Appearance=flat

3.BordeStyle=None

4.TabStop=false

Image1vb.netmdi子的属性：

1.Stretch=true

在MDI窗体的resize事件中添加如下代码：

Private Sub MDIForm_Resize()

Me.Picture1.Height = Me.Height

End Sub

在Picture1控件的resize事件中添加如下代码：

Private Sub Picture1_Resize()

Me.Image1.Move 0, 0, Me.Picture1.Width, Me.Picture1.Height

End Sub

Q2: vb.net Mdi 子窗体最小化后再最大化

很简单

菜单的代码可以这样，不会重复打开，第一点击的时候弹出窗体，下次打开就最大化：

If F1.Visible = True Then

F1.WindowState = FormWindowState.Maximized

Else

F1.Show()

End If

Q3: vb.net mdi子窗口向上拖拽到主窗口边缘的时候，如何将子窗口中的控件移动到panel容器型控件

简单一点的方式是，在MDI主窗体内添加一个picturebox控件，然后在这个picturebox中添加一个image控件。

Picture1的属性：

1.Align=top

2.Appearance=flat

3.BordeStyle=None

4.TabStop=false

Image1的属性：

1.Stretch=true

在MDI窗体的resize事件中添加如下代码：

Private Sub MDIForm_Resize()

Me.Picture1.Height = Me.Height

End Sub

在Picture1控件的resize事件中添加如下代码：

Private Sub Picture1_Resize()

Me.Image1.Move 0, 0, Me.Picture1.Width, Me.Picture1.Height

End Sub

Q4: vb.net中如何把所有MDI子窗体的标题栏文字设置为 “子窗体i” (i 表示子窗体序号)?

增加一个模块

module mgrmdi

public mdifather as form=nothing

public mdison as integer=1

public sub OpenNewSon(byref SonForm as form)

___sonform.mdiparent=mdifather

___sonform.text=string.format("子窗体{0}",mdison.tostring)

___sonform.show

___mdison+=1

end module

在mdi父窗体启动时

sub form_load()

mdifather=me

end sub

加载子窗体使用

sub button1_click()

dim newform as new formson

OpenNewSon(newform)

end sub

关于vb.netmdi子和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。