Vb.net 当两个窗体都显示在屏幕上时,在窗体之间传递字符串

Vb.net 当两个窗体都显示在屏幕上时,在窗体之间传递字符串,vb.net,visual-studio-2015,Vb.net,Visual Studio 2015,stackoveflow社区成员您好 我正在阅读stackoverflow过去6个月的帖子,这对我很有帮助。我从来不会在任何需要在这里写我自己问题的地方陷入困境。 目前,我正在使用基于窗口的.net应用程序开发visual studio 2015。 我的申请表中有多个表格。我正在通过面板控件将一个窗体加载到另一个窗体中。 假设我有一个form1,它是主窗体,form2,我使用面板控件打开了主窗体。 当我打开form1作为启动表单时,数据传输正在进行。但当我使用另一个表单(比如form3)作为启动

stackoveflow社区成员您好

我正在阅读stackoverflow过去6个月的帖子,这对我很有帮助。我从来不会在任何需要在这里写我自己问题的地方陷入困境。 目前,我正在使用基于窗口的.net应用程序开发visual studio 2015。 我的申请表中有多个表格。我正在通过面板控件将一个窗体加载到另一个窗体中。 假设我有一个form1,它是主窗体,form2,我使用面板控件打开了主窗体。 当我打开form1作为启动表单时,数据传输正在进行。但当我使用另一个表单(比如form3)作为启动登录页面时,form1和form2之间的数据传输不起作用。 请给我一些帮助

请查找下面的示例代码。 表格数目-3, Form3作为登录表单, 以表格1为主要形式, 表格2作为参赛表格

表格3的代码-==========

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim form1 As New Form1
        form1.Show()
        Me.Hide()
 End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        RichTextBox1.Text = "Hello"
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim f As Form
        f = Form2
        f.TopLevel = False
        f.WindowState = FormWindowState.Normal
        f.FormBorderStyle = FormBorderStyle.None
        Me.Panel1.Controls.Add(f)
        f.Dock = DockStyle.Fill
        f.Show()
    End Sub
表格1的代码-===========

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim form1 As New Form1
        form1.Show()
        Me.Hide()
 End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        RichTextBox1.Text = "Hello"
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim f As Form
        f = Form2
        f.TopLevel = False
        f.WindowState = FormWindowState.Normal
        f.FormBorderStyle = FormBorderStyle.None
        Me.Panel1.Controls.Add(f)
        f.Dock = DockStyle.Fill
        f.Show()
    End Sub
表格2的代码-=========

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Form1.RichTextBox1.Text = Me.TextBox1.Text
    End Sub

正如“Preciousbetine”所建议的,我已经删除了form1的新实例。应用程序正在按预期工作。 非常感谢你

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Form1.Show()
            Me.Hide()
     End Sub

不要创建表单的新实例。使用默认的
Form1
。这应该是C Sharp和vb之间的唯一区别。