comparebymachine.vb

来自「vb开发的车间调度程序」· VB 代码 · 共 19 行

Public Class CompareByMachine
    Implements IComparer


    Public Function Compare(ByVal o1 As Object, ByVal o2 As Object) As Integer Implements System.Collections.IComparer.Compare

        If (o1 Is Nothing) And (o2 Is Nothing) Then Return 0

        If (o1 Is Nothing) Then Return 1
        If (o2 Is Nothing) Then Return -1

        Dim p1 As CMachine = CType(o1, CMachine)
        Dim p2 As CMachine = CType(o2, CMachine)

        Return p1.Lk - p2.Lk
       
    End Function
End Class