在会话变量上使用扩展方法

Question

我创建了以下扩展方法：

<System.Runtime.CompilerServices.Extension()> _
Public Function ToIntegerOrDefault(ByVal valueToParse As Object, Optional ByVal defaultValue As Integer = 0) As Integer
  Dim retVal As Integer = 0
  If Not Integer.TryParse(valueToParse.ToString, retVal) Then
    retVal = defaultValue
  End If
  Return retVal
End Function

我想在会话变量上使用这种扩展方法，如下所示：

ReadOnly Property NodeID As Integer
  Get
    Return Session(SessionVariables.SELECTED_NODE_ID).ToIntegerOrDefault()
  End Get
End Property

但是，在设置会话变量之前调用该方法时，会抛出 NullReferenceException 和消息 Object variable or With block variable not set.

有没有一种安全的方式以这种方式在会话变量上使用扩展方法（假设会话变量可能为空）？

Answer 1

不能为object 类型（应该是另一种类型）VB.NET: impossible to use Extension method on System.Object instance 使用扩展方法。 必须导入具有扩展方法的模块，以便您可以使用：

ReadOnly Property NodeID As Integer
  Get
    Return ToIntegerOrDefaultSession(SessionVariables.SELECTED_NODE_ID))
  End Get
End Property

或者你可以重写扩展方法

<System.Runtime.CompilerServices.Extension()> _
Public Function ToIntegerOrDefault(Sess As HttpSessionState, KeyOFvalueToParse As String, Optional ByVal defaultValue As Integer = 0) As Integer
  Dim retVal As Integer = 0
  If Not Integer.TryParse(Sess(KeyOFvalueToParse).ToString, retVal) Then
    retVal = defaultValue
  End If
  Return retVal
End Function

然后调用

Session.ToIntegerOrDefault(SessionVariables.SELECTED_NODE_ID)

或者为String定义扩展方法并调用

Cstr(Session(SessionVariables.SELECTED_NODE_ID)).ToIntegerOrDefault()

Answer 2

在声明 Session 时给它一个默认值。如果它是一个使用 new 关键字的列表就可以了。如果是别的东西，你必须展示它是什么。