DataContractSerializer Class

Namespace SL_DataContractSerializer
    Partial Public Class Page
        Inherits UserControl
        Public Sub New()
            InitializeComponent()
        End Sub

        'This uses an event handler, not Silverlight data binding
        Private Sub OnClick(ByVal sender As Object, ByVal args As EventArgs)
            txtOutput1.Text = "Create a User object and serialize it."
            Dim serializedUser As String = WriteFromObject()
            txtOutput2.Text = serializedUser

        End Sub


        ' Create a User object and serializing it.
        Public Shared Function WriteFromObject() As String
            'Create User object.
            Dim user As New User("Bob", 42)

            'Create a stream to serialize the object to.
            Dim ms As New MemoryStream()

            ' Serializer the User object to the stream.
            Dim ser As New DataContractSerializer(GetType(User))
            ser.WriteObject(ms, user)
            Dim array() As Byte = ms.ToArray()
            ms.Close()
            Return Encoding.UTF8.GetString(array, 0, array.Length)
        End Function

    End Class

    <DataContract> _
    Public Class User
        Private privateName As String
        <DataMember> _
        Public Property Name() As String
            Get
                Return privateName
            End Get
            Set(ByVal value As String)
                privateName = value
            End Set
        End Property
        Private privateAge As Integer
        <DataMember> _
        Public Property Age() As Integer
            Get
                Return privateAge
            End Get
            Set(ByVal value As Integer)
                privateAge = value
            End Set
        End Property

        Public Sub New()
        End Sub

        Public Sub New(ByVal newName As String, ByVal newAge As Integer)
            Name = newName
            Age = newAge
        End Sub


    End Class


End Namespace

namespace SL_DataContractSerializer
{
    public partial class Page : UserControl
    {
        public Page()
        {
            InitializeComponent();
        }

        //This uses an event handler, not Silverlight data binding
        void OnClick(object sender, EventArgs args)
        {
            txtOutput1.Text = "Create a User object and serialize it.";
            string serializedUser = WriteFromObject();
            txtOutput2.Text = serializedUser;

        }


        // Create a User object and serializing it.
        public static string WriteFromObject()
        {
            //Create User object.
            User user = new User("Bob", 42);

            //Create a stream to serialize the object to.
            MemoryStream ms = new MemoryStream();

            // Serializer the User object to the stream.
            DataContractSerializer ser = new DataContractSerializer(typeof(User));
            ser.WriteObject(ms, user);
            byte[] array = ms.ToArray();
            ms.Close();
            return Encoding.UTF8.GetString(array, 0, array.Length);
        }

    }

    [DataContract]
    public class User
    {
        [DataMember]
        public string Name { get; set; }
        [DataMember]
        public int Age { get; set; }

        public User() { }

        public User(string newName, int newAge)
        {
            Name = newName;
            Age = newAge;
        }


    }


}