如何在窗体之间翻转时保留窗体的控件值

Question

它需要两种形式才能输入特定事务的所有信息。我希望能够在这两个表单之间来回翻转，保留在每个表单上输入的内容，直到‘保存’按钮被单击。

我想我应该可以使用Form2.Show,Me.Hide，然后使用Form1.Show,Me.Hide。我第一次转到Form2时，它经过了Form2 load事件（这是合理的），但对Form1上控件内容的任何知识都丢失了。即使Form1是隐藏的（而不是关闭的），其控件的内容也消失了。为什么？

第二次转到Form2时，load事件不会触发，因为Form2是隐藏的，此时所有Form1控件内容都可用。因此，在Form1和Form2之间来回翻转时，在第二次转到Form2之后，它就像我希望的那样工作。但是，我需要它第一次和每次都能工作。

If Form2 Is Nothing Then
    Dim Form2 As New Form2
End If
Form2.Show()
Me.Hide()

Form2按钮后面的代码返回到Form1

Form1.Show
Me.Hide

Answer 1

这就是你可能错过的一切：

Class Form1
     Private f2 As Form2       ' this is Form1's reference to the
                               ' form2 instance

稍后，当您单击转到form2时，您的原始代码只需要做一个小小的调整：

If f2 Is Nothing Then
    f2 = New Form2(Me)             ' set declared variable to new instance   
End If
F2.Show()
Me.Hide()

在本例中，Form1使用在使用构造函数之前展示的技巧传递引用：

Sub New(frm As Form1)         ' this is in Form2 only
   f1 = frm               
End Sub