VectorEnumeration

[oguruma]

merci à 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