VectorEnumeration
Publié: 30 Jan 2005 à 12:57merci à son auteur
- Code : Tout sélectionner
Public Class VectorEnumeration As Enumeration
v As Vector
index As Integer
Public Sub new(v As Vector)
Set Me.v = v
index = 0
End Sub
Public Function hasMoreElements() As Variant
hasMoreElements = (index < v.size())
End Function
Public Function nextElement() As Variant
If Isobject(v.elementAt(index)) Then
Set nextElement = v.elementAt(index)
Else
nextElement = v.elementAt(index)
End If
index = index + 1
End Function
End Class