xpandercomparer.vb

来自「使用Access数据库演示的任务分配管理程序 一个使用ADO.NET基于」· VB 代码 · 共 24 行

Imports System
Imports System.Collections

Public Class XPanderComparer
    Implements IComparer

    ' Methods
    Public Function [Compare](ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare
        Dim pander1 As XPander = DirectCast(x, XPander)
        Dim pander2 As XPander = DirectCast(y, XPander)
        Dim num2 As Integer = 0
        If (pander1.Top < pander2.Top) Then
            num2 = -1
        End If
        If (pander1.Top > pander2.Top) Then
            num2 = 1
        End If
        Return num2
    End Function

End Class