快速业务通道

VB.NET实现IEnumerator接口

作者 佚名技术 来源 NET编程 浏览 发布时间 2012-04-11

  Overridable ReadOnly Property Current() As Object

  Current用于在迭代过程中得到当前的对象

 


 Public Overridable Function MoveNext() As Boolean

  MoveNext用于在迭代过程中将迭代指针指向下一个对象,初始是迭代指针指向集合的开始(在第一个节点之前的位置),一旦越过集合的结尾,在调用 Reset 之前,对 MoveNext 的后续调用返回 false。


  Overridable Sub Reset()

  将枚举数设置为其初始位置,该位置位于集合中第一个元素之前。

  只要集合保持不变,枚举数就将保持有效。如果对集合进行了更改(例如添加、修改或删除元素),则该枚举数将失效且不可恢复,并且下一次对 MoveNext 或 Reset 的调用将引发InvalidOperationException。

  下需是一个具体的VB.NET实现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 

VB.NET经过长时间的发展,很多用户都很了解VB.NET实现IEnumerator接口了,这里我发表一下个人理解,和大家讨论讨论。在面向对象的设计中,经常会用到有类似父子关系的这个对象,比如在我现在的一个项目中,有订单对象,在一个订单下又包含多个产品,这时我就想用 Iterator模式来封装订单下的产品,在dot Net中的IEnumerator接口就是用来实现迭代的,来支持dot Net中的for each的操作。

  要VB.NET实现IEnumerator接口,需在实现以下几个函数来支持IEnumerator接口的操作

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号