當前位置: 首頁>>代碼示例>>VB.NET>>正文


VB.NET MimeTextMatchCollection類代碼示例

本文整理匯總了VB.NET中System.Web.Services.Description.MimeTextMatchCollection的典型用法代碼示例。如果您正苦於以下問題:VB.NET MimeTextMatchCollection類的具體用法?VB.NET MimeTextMatchCollection怎麽用?VB.NET MimeTextMatchCollection使用的例子?那麽, 這裏精選的類代碼示例或許可以為您提供幫助。


在下文中一共展示了MimeTextMatchCollection類的1個代碼示例,這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚,您的評價將有助於係統推薦出更棒的VB.NET代碼示例。

示例1: myMimeTextMatch

' Create the 'InputBinding' object.
Dim myInputBinding As New InputBinding()
Dim myMimeTextBinding As New MimeTextBinding()
Dim myMimeTextMatchCollection As MimeTextMatchCollection
' Get an array instance of 'MimeTextMatch' class.
Dim myMimeTextMatch(3) As MimeTextMatch
myMimeTextMatchCollection = myMimeTextBinding.Matches
' Initialize properties of 'MimeTextMatch' class.
For myInt = 0 To 3
   ' Create the 'MimeTextMatch' instance.
   myMimeTextMatch(myInt) = New MimeTextMatch()
   myMimeTextMatch(myInt).Name = "Title"
   myMimeTextMatch(myInt).Type = "*/*"
   myMimeTextMatch(myInt).IgnoreCase = True

   If True = myMimeTextMatchCollection.Contains(myMimeTextMatch(0)) Then
      myMimeTextMatch(myInt).Name = "Title" + Convert.ToString(myInt)
      myMimeTextMatch(myInt).Capture = 2
      myMimeTextMatch(myInt).Group = 2
      myMimeTextMatchCollection.Add(myMimeTextMatch(myInt))
   Else
      myMimeTextMatchCollection.Add(myMimeTextMatch(myInt))
      myMimeTextMatchCollection(myInt).RepeatsString = "2"
   End If
Next myInt
myMimeTextMatchCollection = myMimeTextBinding.Matches
' Copy collection to 'MimeTextMatch' array instance.
myMimeTextMatchCollection.CopyTo(myMimeTextMatch, 0)
myInputBinding.Extensions.Add(myMimeTextBinding)
' Add the 'InputBinding' to 'OperationBinding'.
myOperationBinding.Input = myInputBinding

' Create the 'OutputBinding' instance.
Dim myOutputBinding As New OutputBinding()
' Create the 'MimeTextBinding' instance.
Dim myMimeTextBinding1 As New MimeTextBinding()
' Get an instance of 'MimeTextMatchCollection'.
Dim myMimeTextMatchCollection1 As New MimeTextMatchCollection()
Dim myMimeTextMatch1(4) As MimeTextMatch
myMimeTextMatchCollection1 = myMimeTextBinding1.Matches
For myInt = 0 To 3
   myMimeTextMatch1(myInt) = New MimeTextMatch()
   myMimeTextMatch1(myInt).Name = "Title" + Convert.ToString(myInt)
   If myInt <> 0 Then
      myMimeTextMatch1(myInt).RepeatsString = "7"
   End If
   myMimeTextMatchCollection1.Add(myMimeTextMatch1(myInt))
Next myInt
myMimeTextMatch1(4) = New MimeTextMatch()
' Remove 'MimeTextMatch' instance from collection.
myMimeTextMatchCollection1.Remove(myMimeTextMatch1(1))
' Using MimeTextMatchCollection.Item indexer to comapre. 
If myMimeTextMatch1(2) Is myMimeTextMatchCollection1(1) Then
   ' Check whether 'MimeTextMatch' instance exists. 
   myInt = myMimeTextMatchCollection1.IndexOf(myMimeTextMatch1(2))
   ' Insert 'MimeTextMatch' instance at a desired position.
   myMimeTextMatchCollection1.Insert(1, myMimeTextMatch1(myInt))
   myMimeTextMatchCollection1(1).RepeatsString = "5"
   myMimeTextMatchCollection1.Insert(4, myMimeTextMatch1(myInt))
End If
開發者ID:VB.NET開發者,項目名稱:System.Web.Services.Description,代碼行數:60,代碼來源:MimeTextMatchCollection


注:本文中的System.Web.Services.Description.MimeTextMatchCollection類示例由純淨天空整理自Github/MSDocs等開源代碼及文檔管理平台,相關代碼片段篩選自各路編程大神貢獻的開源項目,源碼版權歸原作者所有,傳播和使用請參考對應項目的License;未經允許,請勿轉載。