本文整理汇总了VB.NET中System.Web.Services.Discovery.DiscoveryClientResultCollection类的典型用法代码示例。如果您正苦于以下问题:VB.NET DiscoveryClientResultCollection类的具体用法?VB.NET DiscoveryClientResultCollection怎么用?VB.NET DiscoveryClientResultCollection使用的例子?那么, 这里精选的类代码示例或许可以为您提供帮助。
在下文中一共展示了DiscoveryClientResultCollection类的1个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: MyDiscoveryClientResult
' 导入命名空间
Imports System.Reflection
Imports System.IO
Imports System.Web.Services.Discovery
Imports System.Xml.Schema
Imports System.Collections
Public Class MyDiscoveryClientResult
Shared Sub Main()
Try
Dim myDiscoveryClientProtocol As New DiscoveryClientProtocol()
' Get the collection of DiscoveryClientResult objects.
Dim myDiscoveryClientResultCollection As _
DiscoveryClientResultCollection = _
myDiscoveryClientProtocol.ReadAll("results.discomap")
Console.WriteLine( _
"Removing a DiscoveryClientResult from the collection...")
' Remove the first DiscoveryClientResult from the collection.
myDiscoveryClientResultCollection.Remove( _
myDiscoveryClientResultCollection(0))
Console.WriteLine("Adding a DiscoveryClientResult" & _
" to the collection...")
Dim myDiscoveryClientResult As New DiscoveryClientResult()
' Set the DiscoveryDocumentReference class as the type of
' reference in the discovery document.
myDiscoveryClientResult.ReferenceTypeName = _
"System.Web.Services.Discovery.DiscoveryDocumentReference"
' Set the URL for the reference.
myDiscoveryClientResult.Url = _
"http://localhost/Discovery/Service1_vb.asmx?disco"
' Set the name of the file in which the reference is saved.
myDiscoveryClientResult.Filename = "Service1_vb.disco"
' Add myDiscoveryClientResult to the collection.
myDiscoveryClientResultCollection.Add(myDiscoveryClientResult)
If myDiscoveryClientResultCollection.Contains( _
myDiscoveryClientResult) Then
Console.WriteLine( _
"Instance of DiscoveryClientResult found in the Collection")
End If
Catch ex As Exception
Console.WriteLine("Error is " + ex.Message)
End Try
End Sub
End Class