VBNET经过长时间的发展很多用户都很了解VBNET实现IEnumerator接口了这里我发表一下个人理解和大家讨论讨论在面向对象的设计中经常会用到有类似父子关系的这个对象比如在我现在的一个项目中有订单对象在一个订单下又包含多个产品这时我就想用 Iterator模式来封装订单下的产品在dot Net中的IEnumerator接口就是用来实现迭代的来支持dot Net中的for each的操作
要VBNET实现IEnumerator接口需在实现以下几个函数来支持IEnumerator接口的操作
OverridableReadOnlyPropertyCurrent()AsObject
Current用于在迭代过程中得到当前的对象
PublicOverridableFunctionMoveNext()AsBoolean
MoveNext用于在迭代过程中将迭代指针指向下一个对象初始是迭代指针指向集合的开始(在第一个节点之前的位置)一旦越过集合的结尾在调用 Reset 之前对 MoveNext 的后续调用返回 false
OverridableSubReset()
将枚举数设置为其初始位置该位置位于集合中第一个元素之前
只要集合保持不变枚举数就将保持有效如果对集合进行了更改(例如添加修改或删除元素)则该枚举数将失效且不可恢复并且下一次对 MoveNext 或 Reset 的调用将引发InvalidOperationException
下需是一个具体的VBNET实现IEnumerator接口的对像
ImportsSystemCollections
在此实际实现的是SystemCollectionsIEnumerable接口
IteratorProduct用此接口来向使用者提供对IEnumerator接口的操作
PublicClassIteratorProduct:ImplementsSystemCollectionsIEnumerable
PrivateProductsAsCollection用Collection在存订单中的所有产品
PrivateitemAsInteger=
PublicSubNew()
Products=NewCollection
ProductsAdd(xh)这只是为了测试方便将加入产品的内容直接写在这了
ProductsAdd(lj)
ProductsAdd(qd)
EndSub
OverridableReadOnlyPropertyCurrent()AsObject
Get
ReturnProducts(item)
EndGet
EndProperty
PublicOverridableFunctionMoveNext()AsBoolean
item+=
EndFunction
OverridableSubReset()
item=
EndSub
返回迭代对像给使用者
OverridableFunctionGetEnumerator()
AsIEnumeratorImplementsIEnumerableGetEnumerator
ReturnMeProductsGetEnumerator
EndFunction
EndClass
