vb.net设置子窗口 vb怎么设置子窗体

vb.net 怎样正确建立父子窗体？（容器问题）

要确立父子窗体vb.net设置子窗口，那子窗体必须继承父窗体。实例化子窗体对象调用Show()方法。

希望采纳

相关问答

Q1: vb.net mdiform的父窗口调用子窗口的函数

既然子窗体都有同名函数vb.net设置子窗口，就应该对子窗体进行一层封装vb.net设置子窗口，子类实现不同方法

Public MustInherit Class AbstractChild

    Public MustOverride Sub Method1()

End Class

Public Class ChildClass1

    Inherits AbstractChild

    Public Overrides Sub Method1()

        MessageBox.Show("class1")

    End Sub

End Class

Public Class ChildClass2

    Inherits AbstractChild

    Public Overrides Sub Method1()

        MessageBox.Show("class2")

    End Sub

End Class

Public Class ChildClass3

    Inherits AbstractChild

    Public Overrides Sub Method1()

        MessageBox.Show("class3")

    End Sub

End Class

        Dim child1 As New ChildClass1()

        Dim child2 As New ChildClass2()

        Dim child3 As New ChildClass3()

        child1.Method1()

        child2.Method1()

        child3.Method1()

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

简单一点的方式是，在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

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

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

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.net设置子窗口和vb怎么设置子窗体的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。