'类型定义
Public Structure RingRecord
    Dim recordTime As DateTime
    Dim footSteps As String
    Dim sportMinutes As String
    Dim distance As String
    Dim calorie As String
End Structure

’写比较子
Private Shared Function sortRingRecord(ByVal xRingRecord As RingRecord, ByVal yRingRecord As RingRecord) As Integer
    If (xRingRecord.recordTime > yRingRecord.recordTime) Then
        Return -1
    ElseIf xRingRecord.recordTime = yRingRecord.recordTime Then
        Return 0
    Else
        Return 1
    End If
 End Function

'排序
Dim lstRingRecord As List(Of RingRecord)
'赋值lstRingRecord 
lstRingRecord.Sort(AddressOf sortRingRecord)

分享到： QQ空间 新浪微博 腾讯微博 微信 更多

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：   注册？ 验证：  防止恶意留言请输入问题答案：2*8=?
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字	表  情