限制列表中的对象数量

Question

如何传递＆＃34; _contents＆＃34;的值？进入＆＃34; SimpleList＆＃34;。我希望能够动态限制列表中的对象数量。

Public Class SimpleList
       Implements IList

    Private _contents(8) As Object
    Private _count As Integer

    Public Sub New()

        _count = 0
    End Sub

Answer 1

您可以定义一个方法，在保留其内容的同时调整数组的大小。

Public Sub SetMaxLimit(newLimit As Integer)
    ReDim Preserve _contents(newLimit)
    If _count > newLimit Then _count = newLimit
End Sub