日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
詳細講述VB.NET IEnumerator接口

經(jīng)過長時間學(xué)習(xí)VB.NET IEnumerator接口，于是和大家分享一下，看完本文你肯定有不少收獲，希望本文能教會你更多東西。在面向?qū)ο蟮脑O(shè)計中，經(jīng)常會用到有類似父子關(guān)系的這個對象，比如在我現(xiàn)在的一個項目中，有訂單對象，在一個訂單下又包含多個產(chǎn)品，這時我就想用Iterator模式來封裝訂單下的產(chǎn)品，在dot Net中的IEnumerator接口就是用來實現(xiàn)迭代的，來支持dot Net中的for each的操作。

我們擁有十多年網(wǎng)頁設(shè)計和網(wǎng)站建設(shè)經(jīng)驗，從網(wǎng)站策劃到網(wǎng)站制作，我們的網(wǎng)頁設(shè)計師為您提供的解決方案。為企業(yè)提供成都網(wǎng)站建設(shè)、成都網(wǎng)站制作、微信開發(fā)、微信平臺小程序開發(fā)、移動網(wǎng)站建設(shè)、H5網(wǎng)站設(shè)計、等業(yè)務(wù)。無論您有什么樣的網(wǎng)站設(shè)計或者設(shè)計方案要求，我們都將富于創(chuàng)造性的提供專業(yè)設(shè)計服務(wù)并滿足您的需求。

要實現(xiàn)VB.NET IEnumerator接口，需在實現(xiàn)以下幾個函數(shù)來支持VB.NET IEnumerator接口的操作

 
 
 
      
  
  
  1. Overridable ReadOnly Property Current() As Object  
    2.   
  
  
  2. 'Current用于在迭代過程中得到當(dāng)前的對象  
    3.   
  
  
  3. Public Overridable Function MoveNext() As Boolean 
    4.

MoveNext用于在迭代過程中將迭代指針指向下一個對象，初始是迭代指針指向集合的開始（在第一個節(jié)點之前的位置），一旦越過集合的結(jié)尾，在調(diào)用 Reset 之前，對 MoveNext 的后續(xù)調(diào)用返回 false。

 
 
 
      
  
  
  1. Overridable Sub Reset() 
    2.

#t#將枚舉數(shù)設(shè)置為其初始位置，該位置位于集合中第一個元素之前。

只要集合保持不變，枚舉數(shù)就將保持有效。如果對集合進行了更改（例如添加、修改或刪除元素），則該枚舉數(shù)將失效且不可恢復(fù)，并且下一次對 MoveNext 或 Reset 的調(diào)用將引發(fā) InvalidOperationException。

下面是一個具體的實現(xiàn)VB.NET IEnumerator接口的對像

 
 
 
      
  
  
  1. Imports System.Collections  
    2.   
  
  
  2.  
    3.   
  
  
  3. '在此實際實現(xiàn)的是System.Collections.IEnumerable接口，
    IteratorProduct 用此接口來向使用者提供對IEnumerator接口的操作。  
    4.   
  
  
  4.  
    5.   
  
  
  5. Public Class IteratorProduct : Implements System.Collections.IEnumerable  
    6.   
  
  
  6. Private Products As Collection '用Collection在存訂單中的所有產(chǎn)品  
    7.   
  
  
  7. Private item As Integer = -1  
    8.   
  
  
  8.  
    9.   
  
  
  9. Public Sub New()  
    10.   
  
  
  10. Products = New Collection  
    11.   
  
  
  11. Products.Add("xh") '這只是為了測試方便，將加入產(chǎn)品的內(nèi)容直接寫在這了  
    12.   
  
  
  12. Products.Add("lj")  
    13.   
  
  
  13. Products.Add("qd")  
    14.   
  
  
  14. End Sub  
    15.   
  
  
  15.  
    16.   
  
  
  16. Overridable ReadOnly Property Current() As Object  
    17.   
  
  
  17. Get  
    18.   
  
  
  18. Return Products(item)  
    19.   
  
  
  19. End Get  
    20.   
  
  
  20. End Property  
    21.   
  
  
  21.  
    22.   
  
  
  22. Public Overridable Function MoveNext() As Boolean  
    23.   
  
  
  23. item += 1  
    24.   
  
  
  24. End Function  
    25.   
  
  
  25.  
    26.   
  
  
  26. Overridable Sub Reset()  
    27.   
  
  
  27. item = -1  
    28.   
  
  
  28. End Sub  
    29.   
  
  
  29.  
    30.   
  
  
  30. '返回迭代對像給使用者  
    31.   
  
  
  31.  
    32.   
  
  
  32. Overridable Function GetEnumerator() 
    As IEnumerator Implements IEnumerable.GetEnumerator  
    33.   
  
  
  33. Return Me.Products.GetEnumerator  
    34.   
  
  
  34. End Function  
    35.   
  
  
  35.  
    36.   
  
  
  36. End Class  
    37.   
  
  
  37.  
    38.   
  
  
  38. Private Sub Page_Load(ByVal sender As System.Object, 
    ByVal e As System.EventArgs) Handles MyBase.Load  
    39.   
  
  
  39. Dim Products As IteratorProduct  
    40.   
  
  
  40. Products = New IteratorProduct  
    41.   
  
  
  41. Dim ProductName As String  
    42.   
  
  
  42. For Each ProductName In Products  
    43.   
  
  
  43. Response.Write(ProductName)  
    44.   
  
  
  44. Response.Write("
    ")  
    45.   
  
  
  45. Next  
    46.   
  
  
  46. End Sub 
    47.

新聞標(biāo)題：詳細講述VB.NET IEnumerator接口
網(wǎng)站路徑：http://www.5511xx.com/article/dpedpop.html