VB.NET中实现IEnumerator接口
2005-04-25 14:53
447 查看
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
说明实现成功
在面向对象的设计中,经常会用到有类似父子关系的这个对象,比如在我现在的一个项目中,有订单对象,在一个订单下又包含多个产品,这时我就想用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
说明实现成功
相关文章推荐
- VB.net和c#利用IOleCommandTarget接口实现Html编辑器的Glyphs(原创)
- 介绍在VB.NET中接口实现多态实际代码知识
- 如何实现IEnumerable<T>和IEnumerator接口,一个ASP.NET MVC日志模型的实现
- VB.NET使用接口实现附带插件功能的程序
- IComparer(Of T) 接口的实现 (vb.net)
- 在VB.NET动态接口是如何实现的?
- Vb.Net实现ICommand接口,或继承BaseCommand
- [VB.NET]VB与MATLAB接口的实现
- c# .net 关于接口实现方式:隐式实现/显式实现!
- 实现了IEnumerable接口的GetEnumerator 即可使用 Foreach遍历,返回一个IEnumerator对象
- [VB.NET]vb.net+sql2000怎样实现远程连接
- 用VB.NET实现MD5加密
- 用JScript实现VB.Net,C#的[委托Delegate]:
- VB.NET实现动态加载控件数组
- VB.Net实现PDU中的UCS2编码和解码
- VB.net实现图像验证码功能
- VB.NET GET接口传送数据,获取返回值
- vb.net是怎么实现的
- 将天文数字转换成中文大写(.Net/C#/VB/T-SQL/Java 实现)
- C#和VB.net实现根据字节数截取字符串