当前位置: 首页>>代码示例>>VB.NET>>正文


VB.NET OperationFaultCollection.Item属性代码示例

本文整理汇总了VB.NET中System.Web.Services.Description.OperationFaultCollection.Item属性的典型用法代码示例。如果您正苦于以下问题:VB.NET OperationFaultCollection.Item属性的具体用法?VB.NET OperationFaultCollection.Item怎么用?VB.NET OperationFaultCollection.Item使用的例子?那么恭喜您, 这里精选的属性代码示例或许可以为您提供帮助。您也可以进一步了解该属性所在System.Web.Services.Description.OperationFaultCollection的用法示例。


在下文中一共展示了OperationFaultCollection.Item属性的2个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。

示例1: myPortTypeCollection

Dim myPortTypeCollection As PortTypeCollection = _
   myServiceDescription.PortTypes
Dim myPortType As PortType = myPortTypeCollection(0)
Dim myOperationCollection As OperationCollection = _
   myPortType.Operations
Dim myOperation As Operation = myOperationCollection(0)
Dim myOperationFaultCollection As OperationFaultCollection = _
   myOperation.Faults

' Reverse the operation fault order.
If myOperationFaultCollection.Count > 1 Then
   Dim myOperationFault As OperationFault = _
      myOperationFaultCollection(0)
   Dim myOperationFaultArray(myOperationFaultCollection.Count -1 ) _
      As OperationFault

   ' Copy the operation faults to a temporary array.
   myOperationFaultCollection.CopyTo(myOperationFaultArray, 0)

   ' Remove all the operation faults from the collection.
   Dim i As Integer
   For i = 0 To myOperationFaultArray.Length - 1
      myOperationFaultCollection.Remove(myOperationFaultArray(i))
   Next i

   ' Insert the operation faults in the reverse order.
   Dim j As Integer = myOperationFaultArray.Length - 1
   i = 0
   While i < myOperationFaultArray.Length
      myOperationFaultCollection.Insert(i, myOperationFaultArray(j))
      i += 1
      j -= 1
   End While
   If myOperationFaultCollection.Contains(myOperationFault) And _
      myOperationFaultCollection.IndexOf(myOperationFault) = _
      myOperationFaultCollection.Count - 1 Then
      Console.WriteLine("Succeeded in reversing the operation faults.")
   Else
      Console.WriteLine("Error while reversing the faults.")
   End If
End If
开发者ID:VB.NET开发者,项目名称:System.Web.Services.Description,代码行数:41,代码来源:OperationFaultCollection.Item

示例2: Not

Dim myOperationFaultCollection As OperationFaultCollection = _
   myOperation.Faults
Dim myOperationFault As OperationFault = _
   myOperationFaultCollection("ErrorString")
If Not (myOperationFault Is Nothing) Then
   myOperationFaultCollection.Remove(myOperationFault)
End If
开发者ID:VB.NET开发者,项目名称:System.Web.Services.Description,代码行数:7,代码来源:OperationFaultCollection.Item


注:本文中的System.Web.Services.Description.OperationFaultCollection.Item属性示例由纯净天空整理自Github/MSDocs等开源代码及文档管理平台,相关代码片段筛选自各路编程大神贡献的开源项目,源码版权归原作者所有,传播和使用请参考对应项目的License;未经允许,请勿转载。