1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
|
Public Class cTPrCols
Implements System.Collections.IEnumerable
Implements System.Collections.IEnumerator
Private marayTPrColsLstKeyPri As Array
Private mCollection As System.Collections.Generic.List(Of cTPrCol)
Private mPosition As Integer = -1
Private mlinkcTPrCol As cTPrCol
Sub New()
mCollection = New System.Collections.Generic.List(Of cTPrCol)
mlinkcTPrCol = New cTPrCol
mPosition = -1
End Sub
Sub New(ByVal obValue As cTPrCol)
mlinkcTPrCol = cTPrCol
mPosition = -1
End Sub
Protected Overrides Sub Finalize()
mCollection = Nothing
mlinkcTPrCol = Nothing
End Sub
Public Function Add(ByVal obAjouter As cTPrCol) As cTPrCol
mCollection.Add(obAjouter)
Add = obAjouter
End Function
Public Sub Reset() Implements System.Collections.IEnumerator.Reset
mPosition = -1
End Sub
Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
GetEnumerator = mCollection.GetEnumerator
End Function
Public Function MoveNext() As Boolean Implements System.Collections.IEnumerator.MoveNext
mPosition = mPosition + 1
End Function
End Class |
Partager