,这样在这里面就可以存储你想要的信息,包括索引值(编号)以及你想要的其他信息。当然这个顺序可能是乱的,最后你就需要再通过起泡法(或叫冒泡法)重新排序即可
<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的成员方法来使用。
当然也有其它方法,如新建一个继承类,重载这些方法。
不清楚你是不是这意思。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)