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

        'This uses an event handler, not SL data binding
        Private Sub OnClick(ByVal sender As Object, ByVal args As EventArgs)
            txtOutput1.Text = "Create a User object and serialize it."
            Dim json As String = WriteFromObject()
            txtOutput2.Text = json.ToString() ' Displays: {"Age":42,"Name":"Bob"}

            txtOutput3.Text = "Deserialize the data to a User object."
            Dim jsonString As String = "{'Name':'Bill', 'Age':53}"
            Dim deserializedUser As User = ReadToObject(jsonString)
            txtOutput4.Text = deserializedUser.Name ' Displays: Bill
            txtOutput5.Text = deserializedUser.Age.ToString() ' Displays: 53
        End Sub
        ' Create a User object and serialize it to a JSON stream.
        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 DataContractJsonSerializer(GetType(User))
            ser.WriteObject(ms, user)
            Dim json() As Byte = ms.ToArray()
            ms.Close()
            Return Encoding.UTF8.GetString(json, 0, json.Length)

        End Function

        ' Deserialize a JSON stream to a User object.
        Public Shared Function ReadToObject(ByVal json As String) As User
            Dim deserializedUser As New User()
            Dim ms As New MemoryStream(Encoding.UTF8.GetBytes(json))
            Dim ser As New DataContractJsonSerializer(deserializedUser.GetType())
            deserializedUser = TryCast(ser.ReadObject(ms), User)
            ms.Close()
            Return deserializedUser
        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_DataContractJsonSerializer
{
    public partial class Page : UserControl
    {
        public Page()
        {
            InitializeComponent();
        }

        //This uses an event handler, not SL data binding
        void OnClick(object sender, EventArgs args)
        {
            txtOutput1.Text = "Create a User object and serialize it.";
            string json = WriteFromObject();
            txtOutput2.Text = json.ToString(); // Displays: {"Age":42,"Name":"Bob"}

            txtOutput3.Text = "Deserialize the data to a User object.";
            string jsonString = "{'Name':'Bill', 'Age':53}";
            User deserializedUser = ReadToObject(jsonString);
            txtOutput4.Text = deserializedUser.Name; // Displays: Bill
            txtOutput5.Text = deserializedUser.Age.ToString(); // Displays: 53
        }
        // Create a User object and serialize it to a JSON stream.
        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.
            DataContractJsonSerializer ser = new DataContractJsonSerializer(typeof(User));
            ser.WriteObject(ms, user);
            byte[] json = ms.ToArray();
            ms.Close();
            return Encoding.UTF8.GetString(json, 0, json.Length);

        }

        // Deserialize a JSON stream to a User object.
        public static User ReadToObject(string json)
        {
            User deserializedUser = new User();
            MemoryStream ms = new MemoryStream(Encoding.UTF8.GetBytes(json));
            DataContractJsonSerializer ser = new DataContractJsonSerializer(deserializedUser.GetType());
            deserializedUser = ser.ReadObject(ms) as User;
            ms.Close();
            return deserializedUser;
        }

    }

    [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;
        }

    }

}