使用属性时出现空引用异常

Question

你看出问题出在哪里了吗？代码将从 frmFacility 运行，并将转移到 UserControl：

Public Class frmFacility
Private primaryBaseDay As Date
Private isClassPrimaryView As Boolean = False
Friend WithEvents BookCtrl As ucBookCtrl2
Public Property Primary_BaseDay() As Date
    Get
      Return primaryBaseDay
    End Get
    Set(ByVal value As Date)
      primaryBaseDay = value
    End Set
  End Property

  Public Property IsOnPrimaryView() As Boolean
    Get
      Return isClassPrimaryView
    End Get
    Set(ByVal value As Boolean)
      isClassPrimaryView = value
    End Set
  End Property
Public Sub GotoDay(ByVal theDay As Date)
    Primary_BaseDay = theDay
    IsOnPrimaryView = True
    BookCtrl.GotoDay(theDay)
End Sub
End Class

   Imports frmFacility
Public Class ucBookCtrl2
Public Sub GotoDay(ByVal whichDay As Date, Optional ByVal MainFacilityUsed As String = "")
Dim facilityForm As frmFacility
If facilityForm.IsOnPrimaryView Then
        moDoBooking.m_BaseDay = facilityForm.Primary_BaseDay
        moDoBooking.m_CurrentDay = whichDay
        ShowDay()
        RaiseEvent ChangeOfDay()
End Sub
End Class

在 IffacilityForm.IsOnPrimaryViewThen 行，我得到一个 NullReferenceException。你知道原因吗？

另外，我无法创建 facilityForm 的新实例，因为我需要使用它的单例，尽管当我添加 frmFacility 的新实例时，IsOnPrimaryMode 设置为 false，而应在 frmFacility 的 gotoday 子中设置为 true。

Answer 1

您没有将 facilityForm 设置为任何内容，您只是声明了一个 frmFacility 类型的变量并将其命名为 facilityForm。当您尝试调用 facilityForm.IsOnPrimaryView 时，facilityForm 仍为 null。

Answer 2

您实际上并没有使用facilityForm 单例。您必须将其存储在某个地方。也许是一个带有共享测试作为New frmFacility的公共类。

该表单尚不能具有 IsOnPrimaryView 属性，因为它尚未实例化。它实际上是什么都没有

Answer 3

您需要将 IsOnPrimaryView 属性设置为共享，否则您将得到 NullReference 异常。