<ServiceContract( )> _
Public Interface IMyService
<OperationContract()> _
Function MyOperation1(ByVal myValue1 As String) As String
<OperationContract()> _
Function MyOperation2(ByVal dataContractValue1 As DataContract1) As String
<OperationContract()> _
Function MyOperation3(ByVal myValue1 As String) As String
End Interface
<ServiceContract( )> _
Public Interface IMyServiceV2
<OperationContract()> _
Function MyOperation_Fix(ByVal myValue1 As String, ByVal myValue2 As String) As String
End Interface
Public Class MyService
Implements IMyService, IMyServiceV2
Public Function MyOperation1(ByVal myValue1 As String) As String Implements IMyService.MyOperation1
Return "Hello: " + myValue1
End Function
Public Function MyOperation_Fix(ByVal myValue1 As String, ByVal myValue2 As String) As String Implements IMyServiceV2.MyOperation_Fix
Return "Hello: " + myValue1 + “ , I am ” + myValue2
End Function
Public Function MyOperation2(ByVal dataContractValue1 As DataContract1) As String Implements IMyService.MyOperation2
Return "Hello: " + dataContractValue1.FirstName
End Function
Public Function MyOperation3(ByVal myValue1 As String) As String Implements IMyService.MyOperation3
Return "xxx"
End Function
End Class
<DataContract()> _
Public Class DataContract1
Private m_firstName As String
Private m_lastName As String
Public Property FirstName() As String
Get
Return m_firstName
End Get
Set(ByVal value As String)
m_firstName = value
End Set
End Property
Public Property LastName() As String
Get
Return m_lastName
End Get
Set(ByVal value As String)
m_lastName = value
End Set
End Property
End Class
|