OperationContractAttribute Class

    ' A service contract that is defined with an interface
    ' using an aysnchronous pattern for Silverlight applications
    ' and a synchronous pattern otherwise.
    <ServiceContract(Name := "SampleServiceContract1", Namespace := "http://microsoft.SL3.documentation")> _
    Public Interface IService1
#If SILVERLIGHT Then
        <OperationContract(AsyncPattern := True)> _
        Function BeginGetPerson(ByVal personId As Integer, ByVal callback As AsyncCallback, ByVal state As Object) As IAsyncResult

        Function EndGetPerson(ByVal result As IAsyncResult) As Person
#Else
        <OperationContract> _
        Function GetPerson(ByVal personId As Integer) As Person
#End If
    End Interface

    <DataContract> _
    Public Class Person
        <DataMember> _
        Public Name As String
        <DataMember> _
        Public Age As Integer

    End Class


    ' A service contract defined with a class
    ' for an operation that handles all messages the service receives.
    <ServiceContract(Name := "SampleServiceContract2", Namespace := "http://microsoft.SL3.documentation")> _
    Public Class CustomerService
        <OperationContract(Name := "SampleOperationContract1")> _
        Public Function CountUsers() As Integer
            Return 2
        End Function

        <OperationContract(Action := "*")> _
        Public Function GetUser(ByVal id As Integer) As User
            If id = 1 Then
                Return New User() With {.IsMember = True, .Name = "Paul", .Age = 24}
            Else
                Return New User() With {.IsMember = False, .Name = "John", .Age = 64}
            End If
        End Function
    End Class

    <DataContract> _
    Public Class User
        Private privateIsMember As Boolean
        <DataMember> _
        Public Property IsMember() As Boolean
            Get
                Return privateIsMember
            End Get
            Set(ByVal value As Boolean)
                privateIsMember = value
            End Set
        End Property

        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
    End Class


    ' A service contract defined with a class
    ' for different response patterns.
    <ServiceContract(Name := "SampleServiceContract3", Namespace := "http://microsoft.SL3.documentation")> _
    Public Class OneAndTwoWay
        ' The client waits until a response message appears.
        <OperationContract> _
        Public Function MethodOne(ByVal x As Integer, <System.Runtime.InteropServices.Out()> ByRef y As Integer) As Integer
            y = 34
            Return 0
        End Function

        ' The client waits until an empty response message appears.
        <OperationContract> _
        Public Sub MethodTwo(ByVal x As Integer)
            Return
        End Sub

        ' The client returns as soon as an outbound message
        ' is queued for dispatch to the service; no response
        ' message is generated or sent.
        <OperationContract(IsOneWay := True)> _
        Public Sub MethodThree(ByVal x As Integer)
            Return
        End Sub
    End Class

    // A service contract that is defined with an interface
    // using an aysnchronous pattern for Silverlight applications
    // and a synchronous pattern otherwise.
    [ServiceContract(
        Name = "SampleServiceContract1",
        Namespace = "http://microsoft.SL3.documentation")]
    public interface IService1
    {
#if SILVERLIGHT
        [OperationContract(AsyncPattern = true)]
        IAsyncResult BeginGetPerson(int personId, AsyncCallback callback, object state);

        Person EndGetPerson(IAsyncResult result);
#else
        [OperationContract]
        Person GetPerson(int personId);
#endif
    }

    [DataContract]
    public class Person
    {
        [DataMember]
        public string Name;
        [DataMember]
        public int Age;

    }


    // A service contract defined with a class
    // for an operation that handles all messages the service receives.
    [ServiceContract(
        Name = "SampleServiceContract2",
        Namespace = "http://microsoft.SL3.documentation")]
    public class CustomerService
    {
        [OperationContract(Name = "SampleOperationContract1")]
        public int CountUsers()
        {
            return 2;
        }

        [OperationContract(Action = "*")]
        public User GetUser(int id)
        {
            if (id == 1)
            {
                return new User() { IsMember = true, Name = "Paul", Age = 24 };
            }
            else
            {
                return new User() { IsMember = false, Name = "John", Age = 64 };
            }
        }
    }

    [DataContract]
    public class User
    {
        [DataMember]
        public bool IsMember { get; set; }

        [DataMember]
        public string Name { get; set; }

        [DataMember]
        public int Age { get; set; }
    }


    // A service contract defined with a class
    // for different response patterns.
    [ServiceContract(
        Name = "SampleServiceContract3",
        Namespace = "http://microsoft.SL3.documentation")]
    public class OneAndTwoWay
    {
        // The client waits until a response message appears.
        [OperationContract]
        public int MethodOne(int x, out int y)
        {
            y = 34;
            return 0;
        }

        // The client waits until an empty response message appears.
        [OperationContract]
        public void MethodTwo(int x)
        {
            return;
        }

        // The client returns as soon as an outbound message
        // is queued for dispatch to the service; no response
        // message is generated or sent.
        [OperationContract(IsOneWay = true)]
        public void MethodThree(int x)
        {
            return;
        }
    }