Как исправить не помеченную как сериализуемую ошибку - PullRequest
0 голосов
/ 02 марта 2020

Я хотел бы скопировать список в новый список без ссылок. Мой код:

Function Clone(ByVal obj As Object) As Object
    Dim Stream As New MemoryStream
    Dim Formatter As New BinaryFormatter(Nothing,
        New StreamingContext(StreamingContextStates.Clone))

    Formatter.Serialize(Stream, obj)
    Stream.Seek(0, SeekOrigin.Begin)
    obj = Formatter.Deserialize(Stream)
    Stream.Close()

    Return obj
End Function

Public Sub Use()
        Dim Control_List As New List(Of Control)
        Control_List = Clone(Original_List)
    End Sub

Как сделать сериализуемый только "Original_List"?

...