比较方法:两个不同的类,其中有一个属性是相同类型的,如日期,或者字符。
自定义IComparer,实现比较方法。
Imports System.Runtime Imports System.Collections Public Class Form1 Private Sub Button1_Click(sender As System.Object,e As System.EventArgs) Handles Button1.Click Dim ArList As New ArrayList With ArList .Add(New Duty(Date.Now,"now")) .Add(New DutyTemp(Date.Today,"today")) .Add(New Duty(Date.Today.AddHours(1),"today+1h")) .Add(New DutyTemp(Date.Today.AddDays(1),"today-1day")) .Add(New Duty(Date.Today.AddHours(-1),"today-1h")) .Add(New Duty(Date.Today.AddDays(5),"today-5day")) .Add(New DutyTemp(Date.Today.AddDays(-8),"today-8day")) End With ArList.Sort(New DutyComparer) For Each obj As Object In ArList Debug.Print(obj.ToString) Next End Sub End Class Public Class DutyComparer Implements IComparer Public Function Compare(x As Object,y As Object) As Integer Implements System.Collections.IComparer.Compare Dim dtm1,dtm2 As Date Select Case x.GetType Case GetType(Duty) dtm1 = CType(x,Duty).DateFrom Case GetType(DutyTemp) dtm1 = CType(x,DutyTemp).TimeFrom End Select Select Case y.GetType Case GetType(Duty) dtm2 = CType(y,Duty).DateFrom Case GetType(DutyTemp) dtm2 = CType(y,DutyTemp).TimeFrom End Select Return Date.Compare(dtm1,dtm2) End Function End Class '--如果兩個不同類可以抽象處理,實現相同接口,就比較容易點。 Public Class Duty Property DateFrom As Date Property DutyName As String Sub New(dtmFrom As Date,strName As String) DateFrom = dtmFrom DutyName = strName End Sub Public Overrides Function ToString() As String Return String.Format("{0}-{1}",DateFrom.ToString,DutyName) End Function End Class Public Class DutyTemp Property TimeFrom As Date Property DutyTempName As String Sub New(dtmFrom As Date,strName As String) TimeFrom = dtmFrom DutyTempName = strName End Sub Public Overrides Function ToString() As String Return String.Format("{0}-{1}",TimeFrom.ToString,DutyTempName) End Function End Class
对比结果:
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。