EnumMemberAttribute Class (System.Runtime.Serialization)

	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)
			' Initialize a serializer for a User type.
			Dim serializer As New DataContractJsonSerializer(GetType(User))

			Dim responseStream As System.IO.Stream = New FileStream("pathToFile", FileMode.Create)
			Dim user As User = CType(serializer.ReadObject(responseStream), User)

			' Create a User object and serialize it.
			Dim json As String = WriteFromObject()

			' Deserialize the data to a User object.
			Dim jsonString As String = "{'Name':'Bill', 'Age':53}"
			Dim deserializedUser As User = ReadToObject(jsonString)
		End Sub

		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()

			' Create a serializer for objects of type User
			Dim ser As New DataContractJsonSerializer(GetType(User))

			' Write from the User object to the stream
			ser.WriteObject(ms, user)
			Dim json() As Byte = ms.ToArray()
			ms.Close()
			Return Encoding.UTF8.GetString(json, 0, json.Length)

		End Function


		Public Shared Function ReadToObject(ByVal json As String) As User
			' Create the User object to read the serialized user into to.
			Dim deserializedUser As New User()

			' Pass the string into a stream
			Dim ms As New MemoryStream(Encoding.UTF8.GetBytes(json))

			' Deserializer the stream to the user object and return it.
			Dim ser As New DataContractJsonSerializer(deserializedUser.GetType())

			' Read the stream
			deserializedUser = TryCast(ser.ReadObject(ms), User)

			ms.Close()
			Return deserializedUser
		End Function



		' Define the data contract.
		<DataContract(Name := "Customer", Namespace := "http://www.contoso.com")> _
		Public Class User
			Private privateName As String
			<DataMember(Name := "Last", EmitDefaultValue := True, IsRequired := True, Order := 2)> _
			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(Order := 1)> _
			Public Property Age() As Integer
				Get
					Return privateAge
				End Get
				Set(ByVal value As Integer)
					privateAge = value
				End Set
			End Property

			<DataMember()> _
			Public Description As Position

			Public Sub New()
			End Sub

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

		<DataContract> _
		Public Enum Position
			<EnumMember(Value := "Emp")> _
			Employee

			<EnumMember(Value := "Mgr")> _
			Manager

			<EnumMember(Value := "Ctr")> _
			Contractor

		End Enum


	End Class

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

    //This uses an event handler, not Silverlight data binding
    void OnClick(object sender, EventArgs args)
    {
        // Initialize a serializer for a User type.
        DataContractJsonSerializer serializer = new DataContractJsonSerializer(typeof(User));

        System.IO.Stream responseStream = new FileStream("pathToFile", FileMode.Create);
        User user = (User)serializer.ReadObject(responseStream);

        // Create a User object and serialize it.
        string json = WriteFromObject();

        // Deserialize the data to a User object.
        string jsonString = "{'Name':'Bill', 'Age':53}";
        User deserializedUser = ReadToObject(jsonString);
    }

    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();

        // Create a serializer for objects of type User
        DataContractJsonSerializer ser = new DataContractJsonSerializer(typeof(User));

        // Write from the User object to the stream
        ser.WriteObject(ms, user);
        byte[] json = ms.ToArray();
        ms.Close();
        return Encoding.UTF8.GetString(json, 0, json.Length);

    }


    public static User ReadToObject(string json)
    {
        // Create the User object to read the serialized user into to.
        User deserializedUser = new User();

        // Pass the string into a stream
        MemoryStream ms = new MemoryStream(Encoding.UTF8.GetBytes(json));

        // Deserializer the stream to the user object and return it.
        DataContractJsonSerializer ser = new DataContractJsonSerializer(deserializedUser.GetType());

        // Read the stream
        deserializedUser = ser.ReadObject(ms) as User;

        ms.Close();
        return deserializedUser;
    }



    // Define the data contract.
    [DataContract(Name = "Customer", Namespace = "http://www.contoso.com")]
    public class User
    {
        [DataMember(Name = "Last", EmitDefaultValue = true, IsRequired = true, Order = 2)]
        public string Name { get; set; }

        [DataMember(Order = 1)]
        public int Age { get; set; }

        [DataMember()]
        public Position Description;

        public User() { }

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

    [DataContract]
    public enum Position
    {
        [EnumMember(Value = "Emp")]
        Employee,

        [EnumMember(Value = "Mgr")]
        Manager,

        [EnumMember(Value = "Ctr")]
        Contractor

    }


}