IEnumerator界面支持兩種方法和一種特性。MoveNext方法能在集合中一次移動(dòng)一條記錄。Reset方法能使枚舉器復(fù)位到集合的起始。Current特性能從集合返回當(dāng)前記錄。
下面的程序顯示了這三種計(jì)算集合的可能的辦法。
Dim testCollection As New Collection()
Dim collectionItem As String
Dim loopCounter As Integer
Dim enumCollection As Ienumerator
With testCollection
.Add("1")
.Add("2")
.Add("3")
End With
For Each collectionItem In testCollection
Console.Out.WriteLine(collectionItem)
Next
For loopCounter = 1 To testCollection.Count
Console.Out.WriteLine(testCollection.Item(loopCounter))
Next
enumCollection = testCollection.GetEnumerator()
Do While enumCollection.MoveNext
Console.Out.WriteLine(enumCollection.Current)
Loop
IEnumerator帶給你For…Each技術(shù)所能提供的計(jì)數(shù)功能,另外還有使循環(huán)復(fù)位和從起始位置開始的新加功能。