JSON序列化和反序列化-示例

    Public Shared Function serialize(ByVal pStatusEntity As DataStatusEntity) As String
        If (pStatusEntity Is Nothing) Then
            Return String.Empty
        End If
        Dim pSerialzerString As String = JsonConvert.SerializeObject(pStatusEntity)
        Return pSerialzerString
    End Function

    Public Shared Function deserialize(ByVal pContent As String) As DataStatusEntity
        If (String.IsNullOrEmpty(pContent)) Then
            Return New DataStatusEntity()           
        End If
        Try
            Dim pStatusEntity As DataStatusEntity = JsonConvert.DeserializeObject(Of DataStatusEntity)(pContent)
            Return pStatusEntity
        Catch ex As InvalidOperationException
#If DEBUG Then
            MsgBox(pContent & "不能解析为正确的状态对像.", MsgBoxStyle.OkOnly, MyHub.mBase.appTitle)
            Throw ex
#Else
            Return New DataStatusEntity()
#End If
        End Try
    End Function