2017-05-25 58 views
0

我想序列化繼承對象的列表。我可以單獨序列化每個對象,當它根據它的真實類型進行聲明時,但是當它的基本類型列表中,序列化程序會因爲期望序列化一個「基本」對象而感到困惑,但隨後會看到不同的繼承了「基本」目的。VB.NET XML序列化繼承對象列表

有關如何輕鬆解決此問題的任何想法?我已經做了一堆閱讀,並沒有找到一個優雅的容易維護的方式來做到這一點。

試圖序列:

 'Define a list of the common inherited base for all print elements. 
     ' This allows all types of print elements to be added to one list and in the user defined order 
     ' Order is important for the layer of objects when 'drawing' them on the canvas during the on print options 
     <XmlArrayAttribute("ElementsList")> 'Tell the XML Seralizer this is a list 
     Public Elements As New List(Of CardItemBase)  'XML Serializer does not like this becuase the elements in this list are not CardItemBase, they are that + stuff, and it does not know what to do with stuff 

這裏是繼承了基地項目,兩者都將序列化(甚至在列表中)的兩個例子,如果聲明爲自己的真實類型:

Public Class TextString 
     'Inherit the common properties for a card item 
     Inherits CardItemBase 

     'Vars to hold string info to use when printing 
     Public StringToPrint As String = String.Empty 
     Public XLocation As Single = 0 
     Public YLocation As Single = 0 

     'Font info (store values instead of a Pen since Pen requires dispose and also does not work with Xml Serializing) 
     Public Font As String = Nothing 
     Public FontSize As Integer = 0 
     Public FontColor As System.Drawing.KnownColor = Drawing.KnownColor.Black 'Note, does NOT require dispose 

     'Constructor to force users to pass in all info 
     Public Sub New() 'Create an empty Sub New Overload for use with XML Serializer 
     End Sub 
     Public Sub New(ByVal CardSide As CardSideOptions, ByVal InputStringToPrint As String, ByVal TextFont As String, ByVal TextSize As Integer, ByVal TextColor As System.Drawing.KnownColor, ByVal InputXLocation As Single, ByVal InputYLocation As Single) 
      'Set the inherited objects 
      MyBase.New(CardSide:=CardSide) 

      'Save passed in info 
      StringToPrint = InputStringToPrint 
      Font = TextFont 
      FontSize = TextSize 
      FontColor = TextColor 
      XLocation = InputXLocation 
      YLocation = InputYLocation 
     End Sub 

     ''' <summary> 
     ''' Return the ture type of this object as DriverJob.PrintElementTypes even if the item is nested in a CardItemBase list. 
     ''' </summary> 
     <XmlIgnore()> 
     Public Overrides ReadOnly Property MyType() As PrintElementTypes 
      Get 
       Return PrintElementTypes.Text 
      End Get 
     End Property 

     <XmlIgnore()> 
     Public Overrides ReadOnly Property ToString() As String 
      Get 
       Try 
        'Create a string that descipes this object 
        Dim ReturnStr As String = "" 

        'Concatinate a description of each element 
        ReturnStr += "X: " & XLocation.ToString() & ", Y: " & YLocation.ToString() & ", " 
        ReturnStr += Font & ", " & FontSize & ", " 
        ReturnStr += FontColor.ToString() & ", " 
        ReturnStr += "'" & StringToPrint & "'" 

        'Return the completed string. 
        Return ReturnStr 
       Catch ex As Exception 
        'Just return the error string 
        Return ex.Message 
       End Try 
      End Get 
     End Property 

    End Class 

    ''' <summary> 
    ''' Sub class for passing images to print to the printing method. 
    ''' </summary> 
    Public Class Image 
     'Inherit the common properties for a card item 
     Inherits CardItemBase 

     'Vars to hold image info to use when printing 
     Public ImageFilePathToUse As String = "" 
     Public XLocation As Single = 0 
     Public YLocation As Single = 0 
     Public Height As Single = 0 
     Public Width As Single = 0 

     'Constructor to force users to pass in all info 
     Public Sub New() 'Create an empty Sub New Overload for use with XML Serializer 
     End Sub 
     Public Sub New(ByVal CardSide As CardSideOptions, ByVal InputImageFilePathToUse As String, Optional ByVal InputXLocation As Single = 0, Optional ByVal InputYLocation As Single = 0, Optional ByVal InputHeight As Single = 0, Optional ByVal InputWidth As Single = 0) 
      'Set the inherited objects 
      MyBase.New(CardSide:=CardSide) 

      'Save passed in info 
      ImageFilePathToUse = InputImageFilePathToUse 
      XLocation = InputXLocation 
      YLocation = InputYLocation 
      Height = InputHeight 
      Width = InputWidth 
     End Sub 

     ''' <summary> 
     ''' Return the ture type of this object as DriverJob.PrintElementTypes even if the item is nested in a CardItemBase list. 
     ''' </summary> 
     <XmlIgnore()> 
     Public Overrides ReadOnly Property MyType() As PrintElementTypes 
      Get 
       Return PrintElementTypes.Image 
      End Get 
     End Property 


      ''' <summary> 
      ''' Creates a simple string description of the object 
      ''' </summary> 
      <XmlIgnore()> 
      Public Overrides ReadOnly Property ToString() As String 
       Get 
        Try 
         'Create a string that descipes this object 
         Dim ReturnStr As String = "" 

         'Concatinate a description of each element 
         ReturnStr += "X: " & XLocation.ToString() & ", Y: " & YLocation.ToString() & ", " 
         ReturnStr += "Height: " & Height.ToString() & ", Width: " & Width.ToString() & ", " 
         ReturnStr += ImageFilePathToUse 

         'Return the completed string. 
         Return ReturnStr 
        Catch ex As Exception 
         'Just return the error string 
         Return ex.Message 
        End Try 
       End Get 
      End Property 
     End Class 

回答

0

幾個小時的閱讀和測試後,我找到了解決辦法塔t會爲我工作。

在基類定義之上,可以使用XML include標籤定義繼承此基類的所有類型,以便序列化程序不會混淆。當添加繼承此基類的類時,這隻會增加一個步驟,因爲我可以忍受這一點。

下面是代碼我添加行:

'Class to hold common properties that may be needed for describing all card elements. This is intented to be inherited 
    <XmlInclude(GetType(TextString)), XmlInclude(GetType(Line)), XmlInclude(GetType(Rectangle)), XmlInclude(GetType(Image)), XmlInclude(GetType(PrintAndTopcoatBlocking)), XmlInclude(GetType(MagstripeSetup)), XmlInclude(GetType(SmartCardSetup))> 
    Public MustInherit Class CardItemBase