不能调用序列化的单例类的实例序列化（）在VB.NET

Question

我有一个实现Serializable一个VB.NET单例类：

Imports System.IO 
Imports System.Runtime.Serialization 

<Serializable()> Public Class CoordinateHistory 
    Private Shared _thisInstance As CoordinateHistory 

    Private gpsHistory As Dictionary(Of DateTime, GpsTimeCoordinate) 
    Private gpsTimes As List(Of DateTime) 

    Public Event NewStatusInformation(statusInfo As String) 

    Protected Sub New() 
     gpsHistory = New Dictionary(Of DateTime, GpsTimeCoordinate) 
     gpsTimes = New List(Of DateTime) 
    End Sub 

    Public Shared Function getInstance() As CoordinateHistory 
     If _thisInstance Is Nothing Then 
      _thisInstance = New CoordinateHistory 
     End If 

     Return _thisInstance 
    End Function 

    Public Function getHistoryCount() As Integer 
     Return gpsHistory.Count 
    End Function 

    ' bunch of other class functions below... 
End Class 

我的问题是，我不能真正称之为.Serialize()在这个类的实例上，就像在线演示的所有示例一样。我究竟做错了什么？谢谢！

Answer 1

我相信这个问题是您的受保护的小组。如果将其更改为Public，则可能能够正确序列化。

更新

我没有使用BinaryFormatter的序列化的默认实例的任何问题：

Dim abData As Byte() 

Using oStream As New MemoryStream 
    Call (New BinaryFormatter).Serialize(oStream, CoordinateHistory.getInstance()) 

    abData = oStream.ToArray() 
End Using 

或XMLFormatter：

Dim sData As String 

Using oStream As New MemoryStream 
    Dim oSerializer As New XmlSerializer(CoordinateHistory.getInstance().GetType) 

    oSerializer.Serialize(oStream, CoordinateHistory.getInstance()) 

    sData = Encoding.Default.GetString(oStream.ToArray()) 
End Using 

或许是序列化框架您正在使用？

Answer 2

问题可能是您的课程公开活动。有一篇文章here描述了序列化VB.NET类与事件以及如何解决它们的问题。

编辑：另请参阅此可能相关question。