Imports System.Collections.ObjectModel
Imports System.Xml.Serialization
Imports System.IO
 
<Serializable()>
Public Class Erinnerungsliste
    Inherits List(Of ErinnerungsBasis)
 
    Sub New()
        MyBase.New()
    End Sub
 
    Sub XMLSerialize(ByVal Dateiname As String)
        Dim locXmlWriter As New XmlSerializer(GetType(Erinnerungsliste))
        Dim locXmlDatei As New StreamWriter(Dateiname)
        locXmlWriter.Serialize(locXmlDatei, Me)
        locXmlDatei.Flush()
        locXmlDatei.Close()
        Debug.Print("Serialisiert")
    End Sub
 
 
    Public Shared Function XmlDeserialize(ByVal Dateiname As String) As _
      Erinnerungsliste
        Dim locXmlLeser As New XmlSerializer(GetType(Erinnerungsliste))
        Dim locXmlDatei As New StreamReader(Dateiname)
        Return CType(locXmlLeser.Deserialize(locXmlDatei), Erinnerungsliste)
        Debug.Print("Deserialisiert")
    End Function
End Class
 
Public Class Erinnerung
    Inherits ErinnerungsBasis
 
    Sub New()
        MyBase.New()
    End Sub
 
End Class
 
Public Class Geburtstag
    Inherits ErinnerungsBasis
 
    Sub New()
        MyBase.new()
    End Sub
End Class
 
Public Class Form1
    Private locListe As New Erinnerungsliste
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
 
        locListe.Add(New Erinnerung With {.Erinnerungstext = "Erinnerung1", _
          .Erinnerungsdatum = #5/1/1985#})
        locListe.Add(New Geburtstag With {.Erinnerungstext = "Dominik", _
        .Erinnerungsdatum = #8/25/1985#})
 
    End Sub
End Class

    <System.Xml.Serialization.XmlInclude(GetType(Erinnerung))> _
    <System.Xml.Serialization.XmlInclude(GetType(Geburtstag))> _
    Public Class Erinnerungsliste
 
        ' ...
 
    End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

_____________________________________________________
Programmieren ist heute ein Wettrennen zwischen Programmierern, die versuchen bessere und idiotensicherere Programme zu entwickeln und dem Universum, dass versucht bessere Idioten zu entwickeln

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist