VB中,ArrayList内的数据如何根据添加时间倒序排列?

发布网友 发布时间：2022-04-22 22:52

我来回答

共2个回答

热心网友 时间：2023-07-21 01:28

添加一个扩展方法，

    <System.Runtime.CompilerServices.Extension()> _
    Public Sub MySort(ByVal theClass As Collections.ArrayList, Optional ByVal flag As Boolean = True) '第一个参数是要扩展的类
        With theClass
            .Sort() '先正向排序
            If flag = Nothing Then '如参数是False，再对其倒序
                Dim item As Object
                For i As Integer = 0 To (theClass.Count - 1) \ 2
                    item = .Item(i)
                    .Item(i) = .Item(.Count - 1 - i)
                    .Item(.Count - 1 - i) = item
                Next
            End If
        End With
    End Sub

把这个代码复制到一个普通模块中，可以作为ArrayList的成员方法来使用。

当然也有其它方法，如新建一个继承类，重载这些方法。

不清楚你是不是这意思。

热心网友 时间：2023-07-21 01:28

最少也要二维组，其中一维记录添加时间