本文整理汇总了VB.NET中System.Web.Services.Description.PortType.Operations属性的典型用法代码示例。如果您正苦于以下问题：VB.NET PortType.Operations属性的具体用法？VB.NET PortType.Operations怎么用？VB.NET PortType.Operations使用的例子？那么, 这里精选的属性代码示例或许可以为您提供帮助。您也可以进一步了解该属性所在类System.Web.Services.Description.PortType的用法示例。
在下文中一共展示了PortType.Operations属性的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: MyPortTypeClass
' 导入命名空间
Imports System.Web.Services.Description
Imports System.Xml
Class MyPortTypeClass
Public Shared Sub Main()
Try
Dim myPortTypeCollection As PortTypeCollection
Dim myServiceDescription As ServiceDescription = _
ServiceDescription.Read("MathService_VB.wsdl")
myPortTypeCollection = myServiceDescription.PortTypes
Dim noOfPortTypes As Integer = myServiceDescription.PortTypes.Count
Console.WriteLine( _
ControlChars.Newline & "Total number of PortTypes : " & _
noOfPortTypes.ToString())
Dim myPortType As PortType = myPortTypeCollection("MathServiceSoap")
myPortTypeCollection.Remove(myPortType)
' Create a new PortType.
Dim myNewPortType As New PortType()
myNewPortType.Name = "MathServiceSoap"
Dim myOperationCollection As OperationCollection = _
myServiceDescription.PortTypes(0).Operations
Dim i As Integer
Dim inputMsg As String
Dim outputMsg As String
For i = 0 To myOperationCollection.Count - 1
inputMsg = myOperationCollection(i).Name & "SoapIn"
outputMsg = myOperationCollection(i).Name & "SoapOut"
Console.WriteLine(" Operation = " & myOperationCollection(i).Name)
myNewPortType.Operations.Add( _
CreateOperation(myOperationCollection(i).Name, inputMsg, _
outputMsg, myServiceDescription.TargetNamespace))
Next i
' Add the PortType to the collection.
myPortTypeCollection.Add(myNewPortType)
noOfPortTypes = myServiceDescription.PortTypes.Count
Console.WriteLine( _
ControlChars.Newline & "Total number of PortTypes : " & _
noOfPortTypes.ToString())
myServiceDescription.Write("MathService_New.wsdl")
Catch e As Exception
Console.WriteLine("Exception:" + e.Message.ToString())
End Try
End Sub
Public Shared Function CreateOperation(operationName As String, inputMessage As String, _
outputMessage As String, targetNamespace As String) As Operation
Dim myOperation As New Operation()
myOperation.Name = operationName
Dim input As OperationMessage = CType(New OperationInput(), OperationMessage)
input.Message = New XmlQualifiedName(inputMessage, targetNamespace)
Dim output As OperationMessage = CType(New OperationOutput(), OperationMessage)
output.Message = New XmlQualifiedName(outputMessage, targetNamespace)
myOperation.Messages.Add(input)
myOperation.Messages.Add(output)
Return myOperation
End Function 'CreateOperation
End Class