EnumMemberAttribute Class
[ This article is for Windows Phone 8 developers. If you’re developing for Windows 10, see the latest documentation. ]
Specifies that the field is an enumeration member and should be serialized.
Assembly: System.Runtime.Serialization (in System.Runtime.Serialization.dll)
The EnumMemberAttribute type exposes the following members.
| Name | Description | |
|---|---|---|
![]() | Equals | Infrastructure. Returns a value that indicates whether this instance is equal to a specified object. (Inherited from Attribute.) |
![]() | Finalize | Allows an object to try to free resources and perform other cleanup operations before the Object is reclaimed by garbage collection. (Inherited from Object.) |
![]() | GetHashCode | Returns the hash code for this instance. (Inherited from Attribute.) |
![]() | GetType | Gets the Type of the current instance. (Inherited from Object.) |
![]() | Match | When overridden in a derived class, returns a value that indicates whether this instance equals a specified object. (Inherited from Attribute.) |
![]() | MemberwiseClone | Creates a shallow copy of the current Object. (Inherited from Object.) |
![]() | ToString | Returns a string that represents the current object. (Inherited from Object.) |
The EnumMemberAttribute enables fine control of the names of the enumerations as they are serialized.
To use EnumMemberAttribute, create an enumeration and apply the DataContractAttribute attribute to the enumeration. Then apply the EnumMemberAttribute attribute to each member that must be in the serialization stream.
Partial Public Class Page Inherits PhoneApplicationPage Public Sub New() InitializeComponent() End Sub 'This uses an event handler, not 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


