root/lang/vb2005/FuwaKumo/trunk/FuwaKumo/SortedSizedList.vb @ 34124

Public Class SortedSizedList(Of TKey, TValue)
    Inherits SortedList(Of TKey, TValue)

    Private _size As Integer = 200

    Public Sub New()

    End Sub

    Public Sub New(ByVal capacity As Integer)
        _size = capacity
    End Sub

    Public Shadows Sub Add(ByVal key As TKey, ByVal value As TValue)
        MyBase.Add(key, value)
        Truncate()
    End Sub

    Public Property Size() As Integer
        Get
            If _size = Integer.MaxValue Then
                Return 0
            Else
                Return _size
            End If
        End Get
        Set(ByVal value As Integer)
            If value = 0 Then value = Integer.MaxValue
            _size = value
            Truncate()
        End Set
    End Property

    Private Sub Truncate()
        Do While Me.Count > _size
            Me.RemoveAt(0)
        Loop
    End Sub
End Class