VB.NET經(jīng)過(guò)長(zhǎng)時(shí)間的發(fā)展，很多用戶都很了解VB.NET實(shí)現(xiàn)IEnumerator接口了，這里我發(fā)表一下個(gè)人理解，和大家討論討論。在面向?qū)ο蟮脑O(shè)計(jì)中，經(jīng)常會(huì)用到有類似父子關(guān)系的這個(gè)對(duì)象，比如在我現(xiàn)在的一個(gè)項(xiàng)目中，有訂單對(duì)象，在一個(gè)訂單下又包含多個(gè)產(chǎn)品，這時(shí)我就想用 Iterator模式來(lái)封裝訂單下的產(chǎn)品，在dot Net中的IEnumerator接口就是用來(lái)實(shí)現(xiàn)迭代的，來(lái)支持dot Net中的for each的操作。

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

Overridable ReadOnly Property Current()   
As Object 

Current用于在迭代過(guò)程中得到當(dāng)前的對(duì)象

Public Overridable Function MoveNext()   
As Boolean 

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

Overridable Sub Reset() 

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

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

下需是一個(gè)具體的VB.NET實(shí)現(xiàn)IEnumerator接口的對(duì)像

Imports System.Collections  
 
'在此實(shí)際實(shí)現(xiàn)的是System.Collections.IEnumerable接口，
IteratorProduct 用此接口來(lái)向使用者提供對(duì)IEnumerator接口的操作。  
 
Public Class IteratorProduct : Implements System.Collections.IEnumerable  
Private Products As Collection '用Collection在存訂單中的所有產(chǎn)品  
Private item As Integer = -1  
 
Public Sub New()  
Products = New Collection  
Products.Add("xh") '這只是為了測(cè)試方便，將加入產(chǎn)品的內(nèi)容直接寫(xiě)在這了  
Products.Add("lj")  
Products.Add("qd")  
End Sub  
 
Overridable ReadOnly Property Current() As Object  
Get  
Return Products(item)  
End Get  
End Property  
 
Public Overridable Function MoveNext() As Boolean  
item += 1  
End Function  
 
Overridable Sub Reset()  
item = -1  
End Sub  
 
'返回迭代對(duì)像給使用者  
 
Overridable Function GetEnumerator() 
As IEnumerator Implements IEnumerable.GetEnumerator  
Return Me.Products.GetEnumerator  
End Function  
 
End Class 

【編輯推薦】

1. 三步了解VB.NET串口通訊如何發(fā)送接收數(shù)據(jù)
2. 是否了解VB.NET Derived Class
3. 迅速掌握VB.NET Shared變量技能
4. 事例講解VB.NET Constructor函式
5. 剖析VB.NET寫(xiě)Object Oriented編程