VB.NET中实现IEnumerator接口
2024-07-10 13:00:31
供稿：网友
vb.net中实现ienumerator接口
在面向对象的设计中，经常会用到有类似父子关系的这个对象，比如在我现在的一个项目中，有订单对象，在一个订单下又包含多个产品，这时我就想用iterator模式来封装订单下的产品，在dot net中的ienumerator接口就是用来实现迭代的，来支持dot net中的for each的操作。
要实现ienumerator接口，需在实现以下几个函数来支持ienumerator接口的操作
overridable readonly property current() as object
current用于在迭代过程中得到当前的对象
public overridable function movenext() as boolean
movenext用于在迭代过程中将迭代指针指向下一个对象，初始是迭代指针指向集合的开始（在第一个节点之前的位置），一旦越过集合的结尾，在调用 reset 之前，对 movenext 的后续调用返回 false。
overridable sub reset()
将枚举数设置为其初始位置，该位置位于集合中第一个元素之前。
只要集合保持不变，枚举数就将保持有效。如果对集合进行了更改（例如添加、修改或删除元素），则该枚举数将失效且不可恢复，并且下一次对 movenext 或 reset 的调用将引发 invalidoperationexception。
下需是一个具体的实现ienumerator接口的对像
'------------------------实现ienumerator接口的类----------------------------------
imports system.collections
'在此实际实现的是system.collections.ienumerable接口，iteratorproduct 用此接口来向使用者提供对ienumerator接口的操作。
public class iteratorproduct : implements system.collections.ienumerable
private products as collection '用collection在存订单中的所有产品
private item as integer = -1
public sub new()
products = new collection
products.add("xh") '这只是为了测试方便，将加入产品的内容直接写在这了
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
' 返回迭代对像给使用者
overridable function getenumerator() as ienumerator implements ienumerable.getenumerator
return me.products.getenumerator
end function
end class
'------------------------使用类----------------------------------
private sub page_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load
dim products as iteratorproduct
products = new iteratorproduct
dim productname as string
for each productname in products
response.write(productname)
response.write("<br>")
next
end sub
输出为:
xh
lj
qd
说明实现成功
