本文整理汇总了VB.NET中System.Web.Services.Description.ImportCollection类的典型用法代码示例。如果您正苦于以下问题:VB.NET ImportCollection类的具体用法?VB.NET ImportCollection怎么用?VB.NET ImportCollection使用的例子?那么, 这里精选的类代码示例或许可以为您提供帮助。
在下文中一共展示了ImportCollection类的1个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: ServiceDescription_ImportCollection
' 导入命名空间
Imports System.Web.Services.Description
Imports System.Xml
Class ServiceDescription_ImportCollection
Public Shared Sub Main()
Dim myServiceDescription As ServiceDescription = _
ServiceDescription.Read("StockQuoteService_vb.wsdl")
Console.WriteLine(" ImportCollection Sample ")
' Get Import Collection.
Dim myImportCollection As ImportCollection = myServiceDescription.Imports
Console.WriteLine("Total Imports in the document = " + _
myServiceDescription.Imports.Count.ToString())
' Print 'Import' properties to console.
Dim i As Integer
For i = 0 To myImportCollection.Count - 1
Console.WriteLine(ControlChars.Tab + _
"Import Namespace :{0} Import Location :{1} ", _
myImportCollection(i).Namespace, _
myImportCollection(i).Location)
Next i
Dim myImports(myServiceDescription.Imports.Count - 1) As Import
' Copy 'ImportCollection' to an array.
myServiceDescription.Imports.CopyTo(myImports, 0)
Console.WriteLine("Imports that are copied to Importarray ...")
Dim j As Integer
For j = 0 To myImports.Length - 1
Console.WriteLine(ControlChars.Tab + _
"Import Namespace :{0} Import Location :{1} ", _
myImports(j).Namespace, myImports(j).Location)
Next j
' Get Import by Index.
Dim myImport As Import = _
myServiceDescription.Imports(myServiceDescription.Imports.Count - 1)
Console.WriteLine("Import by Index...")
If myImportCollection.Contains(myImport) Then
Console.WriteLine("Import Namespace '" + myImport.Namespace + _
"' is found in 'ImportCollection'.")
Console.WriteLine("Index of '" + myImport.Namespace + _
"' in 'ImportCollection' = " + _
myImportCollection.IndexOf(myImport).ToString())
Console.WriteLine("Delete Import from 'ImportCollection'...")
myImportCollection.Remove(myImport)
If myImportCollection.IndexOf(myImport) = - 1 Then
Console.WriteLine("Import is successfully removed from Import Collection.")
End If
End If
End Sub
End Class