我怎样才能加载“未来”？在使用表单控件之前？详细解释：

Question

我正在将 vb6 程序迁移到 vb.net。理解这个问题需要的基础知识是，有两种形式需要相互通信，frmInput1和frmInput2。我有以下代码（在 frmInput1 后面），它检查 frmInput2 上的文本框是否具有特定值，似乎是在加载之前：

If frminput2.lblInputMac.Text <> "(no filename)" Then
        Dim calc As CalculationCaster = New CalculationCaster
        Call calc.FillMac()
        cmdNext.Enabled = False

        frminput2.FraInner.Enabled = True

当我运行它时，我在 If 行上收到以下错误：

"Object reference not set to an instance of an object."

我认为这意味着 frmInput2 中的对象尚未加载。在显示之前如何加载 frmInput2？

谢谢尼克

​

Answer 1

frminput2 可能是类型 frminput2 的隐式全局实例。

如果您在 VB6 中定义名为 MyForm 的表单类型，平台会自动创建同名的隐式全局变量 MyForm。每当您在代码中引用此变量时，它都会自动为您加载表单的实例。

就好像你有这段代码一样。

Public Function MyForm() As MyForm
  Static f As MyForm
  If f Is Nothing Then
    f = New MyForm
  End If
  Return f
End Function

Answer 2

dim frm1 as new frmInput1 
dim frm2 as new frmInput2

此时，您应该能够在不显示表单的情况下在表单之间进行通信。您不应在未显式实例化表单的情况下引用表单。

Answer 3

创建表单的实例。

Dim f As New frmInput2

然后您可以使用窗体上的任何属性、方法或控件。

If f.lblInputMac.Text  <> "(no filename)" Then
    ...
End If