C#

<Serializable()> _
Public MustInherit Class BaseClass
    Private _Name As String
    Private _UniqueName As String

    <NonSerialized(), XmlIgnore()> _
    Private _worker As System.ComponentModel.BackgroundWorker

    Public Sub New(ByVal Name As String, ByVal UniqueName As String, _
                   Optional ByRef myWorker As System.ComponentModel.BackgroundWorker = Nothing)
        _Name = Name
        _UniqueName = UniqueName
        _worker = myWorker
    End Sub

    Public Sub New()
        _worker = Nothing
    End Sub

    Public Sub New(ByRef myWorker As System.ComponentModel.BackgroundWorker)
        _worker = myWorker
    End Sub

    <XmlElement("Name")> _
    Public Property Name() As String
        Get
            Return _Name
        End Get
        Set(ByVal value As String)
            _Name = value
        End Set
    End Property

    <XmlElement("UniqueName")> _
    Public Property UniqueName() As String
        Get
            Return _UniqueName
        End Get
        Set(ByVal value As String)
            _UniqueName = value
        End Set
    End Property

    Public Sub PerformStep()
        If _worker IsNot Nothing Then
            _worker.ReportProgress(50)
        End If
    End Sub

    Public ReadOnly Property Worker() As System.ComponentModel.BackgroundWorker
        Get
            Return _worker
        End Get
    End Property
End Class

<Serializable()> _
Public Class Member
    Inherits BaseClass

    Public Sub New()
        MyBase.New()
    End Sub

    Public Sub New(ByVal Name As String, ByVal UniqueName As String, _
                   Optional ByRef myWorker As System.ComponentModel.BackgroundWorker = Nothing)
        MyBase.New(Name, UniqueName, myWorker)
    End Sub
End Class

<Serializable()> _
Public Class Members
    Inherits Loads

    Private _members() As Member

    Public Sub New()
        ReDim _members(-1)
    End Sub

    Public Sub New(ByRef myWorker As System.ComponentModel.BackgroundWorker)
    End Sub

    Public Sub New(ByRef Members As ADOMD.Members, _
                   Optional ByRef myWorker As System.ComponentModel.BackgroundWorker = Nothing)
    End Sub

    Public Sub LoadMembers(ByRef Members As ADOMD.Members)
    End Sub

    <XmlElement("Member")> _
    Public Property Members() As Member()
        Get
            Return _members
        End Get
        Set(ByVal value As Member())
            _members = value
        End Set
    End Property

    Public ReadOnly Property Count() As Long
        Get
            Return UBound(_members) + 1
        End Get
    End Property

    Public Overloads ReadOnly Property Items() As Member()
        Get
            Return _members
        End Get
    End Property

    Public Overloads ReadOnly Property Items(ByVal Index As Long) As Member
        Get
            If Index <= UBound(_members) Then
                Return _members(Index)
            Else
                Return Nothing
            End If
        End Get
    End Property

    Public Overloads ReadOnly Property Items(ByVal Name As String) As Member
        Get
            For i = 0 To UBound(_members)
                If _members(i).Name = Name Then
                    Return _members(i)
                End If
            Next

            Return Nothing
        End Get
    End Property

End Class

Serialization.XmlSerializer serializer

try
{
   serializer = new Serialization.XmlSerializer(typeof(myCubeClasses.myCubeDef));
}
catch (Exception ex)
{
  //do something
}

FileStream dataFile = new FileStream("D:\\DataCubeUtilityToolbar\\DataCubeObject.xml",
                                     FileMode.Create, FileAccess.Write,
                                     FileShare.None);

try
{
  serializer.Serialize(dataFile, myCubeType);
}
catch (Exception ex)
  //do something
}

dataFile.Close();
dataFile.Dispose();

static void Main(string[] args)
{
    // Create products
    Product p1 = new Product { ItemId = 100, ProductName = "Hammer" };
    Product p2 = new Product { ItemId = 101, ProductName = "Level" };
    Product p3 = new Product { ItemId = 102, ProductName = "Screwdriver" };

    // Create a Inv Detaild object and add the products to id
    InvoiceDetail details = new InvoiceDetail { ItemId = 10, InvoiceId = 4 };
    details.Items.Add(p1);
    details.Items.Add(p2);
    details.Items.Add(p3);

    // Create an Inv Header object and add the Inv Details to it
    InvoiceHeader ih = new InvoiceHeader { InvoiceDate = DateTime.Now };
    ih.Items.Add(details);

    // Create a customer and add the Inv Header to ir
    Customer customer = new Customer {ItemId = 1, Name = "Frank Jones" };
    customer.Items.Add(ih);

    // Create the customers collection and add the customer to it
    Customers customers = new Customers();
    customers.Items.Add(customer);

    // Serialize the collection
    string FileName = @"c:\myfile.xml";

    XmlSerializer serializer = null;

    try
    {
        serializer = new XmlSerializer(typeof(Test2.Customers));
    }
    catch (Exception ex)
    {  
        //do something
    }

    FileStream dataFile = new FileStream(FileName, FileMode.Create, FileAccess.Write, FileShare.None);

    try
    {
        serializer.Serialize(dataFile, customers);
    }
    catch (Exception ex)
    {
        //do something
    }

    dataFile.Close();
    dataFile.Dispose();
}

[Serializable]
[XMLRoot("Customers")]
public class Customers: _ItemBase
{
}

[Serializable]
public abstract class _ItemBase
{
  [XMLAttribute("Type")]
  public ItemType Type {get; set;}
  
  [XMLAttribute("ItemID")]
  public int ItemId {get; set;}

  private _Collection<_ItemBase> _Items = new _Collection<_ItemBase>()
  [XMLElement("Items")]
  public _Collection<_ItemBase> Items
  {
    get {return _Items;}
    set {_Items = value;}
  }
}

ziopino70 wrote:

so I could figure it out