本文整理匯總了VB.NET中System.Web.Services.Description.MimeMultipartRelatedBinding類的典型用法代碼示例。如果您正苦於以下問題：VB.NET MimeMultipartRelatedBinding類的具體用法？VB.NET MimeMultipartRelatedBinding怎麽用？VB.NET MimeMultipartRelatedBinding使用的例子？那麽, 這裏精選的類代碼示例或許可以為您提供幫助。
在下文中一共展示了MimeMultipartRelatedBinding類的1個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: Main
' 導入命名空間
Imports System.Web.Services.Description
Namespace MimeContentBinding_work
Class MyMimeContentClass
Shared Sub Main()
Dim myServicDescription As ServiceDescription = _
ServiceDescription.Read("MimeMultiPartRelatedSample_vb.wsdl")
' Get the binding collection.
Dim myBindingCollection As BindingCollection = _
myServicDescription.Bindings
Dim index As Integer = 0
Dim i As Integer
For i = 0 To myBindingCollection.Count - 1
' Get the collection for MimeServiceHttpPost.
If myBindingCollection(i).Name = "MimeServiceHttpPost" Then
Dim myOperationBindingCollection As _
OperationBindingCollection = myBindingCollection(i).Operations
Dim myOutputBinding As OutputBinding = _
myOperationBindingCollection(0).Output
Dim myServiceDescriptionFormatExtensionCollection As _
ServiceDescriptionFormatExtensionCollection = _
myOutputBinding.Extensions
Dim myMimeMultipartRelatedBinding As _
MimeMultipartRelatedBinding = _
CType(myServiceDescriptionFormatExtensionCollection.Find( _
GetType(MimeMultipartRelatedBinding)), _
MimeMultipartRelatedBinding)
Dim myMimePartCollection As MimePartCollection = _
myMimeMultipartRelatedBinding.Parts
Dim myMimePart As MimePart
For Each myMimePart In myMimePartCollection
Console.WriteLine("Extension Types added to MimePart: " & _
index.ToString())
Console.WriteLine("----------------------------")
index = index + 1
Dim myExtension As Object
For Each myExtension In myMimePart.Extensions
Console.WriteLine(myExtension.GetType())
Next myExtension
Console.WriteLine()
Next myMimePart
Exit For
End If
Next i
End Sub
End Class
End Namespace 'MimeContentBinding_work