Vb.net 在Winforms应用程序中同时关闭两个打开的窗体_Vb.net_Winforms

Vb.net 在Winforms应用程序中同时关闭两个打开的窗体

vb.net winforms

Vb.net 在Winforms应用程序中同时关闭两个打开的窗体,vb.net,winforms,Vb.net,Winforms,我正在使用Windows窗体应用程序在父窗体中，我同时打开两个窗体-frmrecieveddeliferaryrequest和FrmReleasedInPodium 在父窗体中，我打开了如下两个窗体： frm1 = New FrmrecievedDelivaryRequest frm1.Location = New Point(375, 0) frm1.MdiParent = Me frm1.Show() frm6 = New FrmReleasedInPodium frm6.Locatio

我正在使用Windows窗体应用程序

在父窗体中，我同时打开两个窗体-

frmrecieveddeliferaryrequest

和

FrmReleasedInPodium

在父窗体中，我打开了如下两个窗体：

frm1 = New FrmrecievedDelivaryRequest
frm1.Location = New Point(375, 0)
frm1.MdiParent = Me
frm1.Show()

frm6 = New FrmReleasedInPodium
frm6.Location = New Point(809, 0)
frm6.MdiParent = Me
frm6.Show()

在

FrmReleasedInPodium

中，我有一个关闭按钮

单击“关闭”按钮时，我必须关闭两个表单，因此我编写了以下代码：

  Me.Close()
  Dim form2 = New FrmrecievedDelivaryRequest()
  form2.Close()

但这并不是关闭我的

frmrecieveddelivary请求

，而是关闭

FrmReleasedInPodium

单击“关闭”按钮时，我必须关闭两个窗体。。我该怎么做？

您正在创建

frmrecieveddelivary请求的新实例，然后立即关闭它。该新实例与您在第一个表单中创建的原始实例无关
要关闭这两个请求，您必须将对原始frmrecieveddelivary请求的引用传递到FrmReleasedInPodium
的实例中

将frmrecieveddelivary请求的实例传递到FrmReleasedInPodium
：
frm6 = New FrmReleasedInPodium(frm1)
frm6.Location = New Point(809, 0)
frm6.MdiParent = Me
frm6.Show()

Public Class FrmReleasedInPodium

    private frmRDR as FrmrecievedDelivaryRequest

    Public Sub New(ByVal frmRDR As FrmrecievedDelivaryRequest)
        InitializeComponent
        Me.frmRDR = frmRDR
    End Sub

End Class

然后在FrmReleasedInPodium
中引用它：
frm6 = New FrmReleasedInPodium(frm1)
frm6.Location = New Point(809, 0)
frm6.MdiParent = Me
frm6.Show()

Public Class FrmReleasedInPodium

    private frmRDR as FrmrecievedDelivaryRequest

    Public Sub New(ByVal frmRDR As FrmrecievedDelivaryRequest)
        InitializeComponent
        Me.frmRDR = frmRDR
    End Sub

End Class

您正在创建FrmrecievedDelivaryRequest
的新实例，然后立即将其关闭。该新实例与您在第一个表单中创建的原始实例无关
要关闭这两个请求，您必须将对原始frmrecieveddelivary请求的引用传递到FrmReleasedInPodium
的实例中

将frmrecieveddelivary请求的实例传递到FrmReleasedInPodium
：
frm6 = New FrmReleasedInPodium(frm1)
frm6.Location = New Point(809, 0)
frm6.MdiParent = Me
frm6.Show()

Public Class FrmReleasedInPodium

    private frmRDR as FrmrecievedDelivaryRequest

    Public Sub New(ByVal frmRDR As FrmrecievedDelivaryRequest)
        InitializeComponent
        Me.frmRDR = frmRDR
    End Sub

End Class

然后在FrmReleasedInPodium
中引用它：
frm6 = New FrmReleasedInPodium(frm1)
frm6.Location = New Point(809, 0)
frm6.MdiParent = Me
frm6.Show()

Public Class FrmReleasedInPodium

    private frmRDR as FrmrecievedDelivaryRequest

    Public Sub New(ByVal frmRDR As FrmrecievedDelivaryRequest)
        InitializeComponent
        Me.frmRDR = frmRDR
    End Sub

End Class

您正在创建FrmrecievedDelivaryRequest
的新实例，然后立即将其关闭。该新实例与您在第一个表单中创建的原始实例无关
要关闭这两个请求，您必须将对原始frmrecieveddelivary请求的引用传递到FrmReleasedInPodium
的实例中

将frmrecieveddelivary请求的实例传递到FrmReleasedInPodium
：
frm6 = New FrmReleasedInPodium(frm1)
frm6.Location = New Point(809, 0)
frm6.MdiParent = Me
frm6.Show()

Public Class FrmReleasedInPodium

    private frmRDR as FrmrecievedDelivaryRequest

    Public Sub New(ByVal frmRDR As FrmrecievedDelivaryRequest)
        InitializeComponent
        Me.frmRDR = frmRDR
    End Sub

End Class

然后在FrmReleasedInPodium
中引用它：
frm6 = New FrmReleasedInPodium(frm1)
frm6.Location = New Point(809, 0)
frm6.MdiParent = Me
frm6.Show()

Public Class FrmReleasedInPodium

    private frmRDR as FrmrecievedDelivaryRequest

    Public Sub New(ByVal frmRDR As FrmrecievedDelivaryRequest)
        InitializeComponent
        Me.frmRDR = frmRDR
    End Sub

End Class

您正在创建FrmrecievedDelivaryRequest
的新实例，然后立即将其关闭。该新实例与您在第一个表单中创建的原始实例无关
要关闭这两个请求，您必须将对原始frmrecieveddelivary请求的引用传递到FrmReleasedInPodium
的实例中

将frmrecieveddelivary请求的实例传递到FrmReleasedInPodium
：
frm6 = New FrmReleasedInPodium(frm1)
frm6.Location = New Point(809, 0)
frm6.MdiParent = Me
frm6.Show()

Public Class FrmReleasedInPodium

    private frmRDR as FrmrecievedDelivaryRequest

    Public Sub New(ByVal frmRDR As FrmrecievedDelivaryRequest)
        InitializeComponent
        Me.frmRDR = frmRDR
    End Sub

End Class

然后在FrmReleasedInPodium
中引用它：
frm6 = New FrmReleasedInPodium(frm1)
frm6.Location = New Point(809, 0)
frm6.MdiParent = Me
frm6.Show()

Public Class FrmReleasedInPodium

    private frmRDR as FrmrecievedDelivaryRequest

    Public Sub New(ByVal frmRDR As FrmrecievedDelivaryRequest)
        InitializeComponent
        Me.frmRDR = frmRDR
    End Sub

End Class

先生，那么您为什么要传递frm1先生，看看您的代码..您将其命名为：frmRDR right我在传递frm1时出错：frm6=New FrmReleasedInPodium（frm1）in close按钮我添加了如下代码：me.close（）frmRDR.close（），但到达frmRDR.close（）时出错是的，我正在将代码FrmReleasedInPodium error:Object reference未设置为对象的实例。先生，那么为什么要传递frm1sir请查看您的代码。您将其命名为：frmRDR right我在传递frm1时出错：frm6=新的FrmReleasedInPodium（frm1）in close按钮我添加了如下代码：me.close（）frmRDR.close（）但是到达frmRDR.Close（）时出错是的，我正在将代码FrmReleasedInPodium错误：对象引用未设置为对象的实例。先生，那么为什么要传递frm1sir请查看您的代码。您将其命名为：frmRDR right我在传递frm1时出错：frm6=新的FrmReleasedInPodium（frm1）在close按钮中，我添加了如下代码：me.close（）frmRDR.close（），但到达frmRDR.close（）时出错是的，我正在将代码FrmReleasedInPodium error:Object reference未设置为对象的实例。先生，那么为什么要传递frm1sir请查看您的代码。您将其命名为：frmRDR right我在传递frm1时出错：frm6=新的FrmReleasedInPodium（frm1）in close按钮我添加了如下代码：me.close（）frmRDR.close（）但是到达frmRDR.Close（）时出错是的，我正在将代码FrmReleasedInPodium error:Object reference未设置为对象的实例。