mysorter.vb

来自「进程跟踪器程序代码」· VB 代码 · 共 66 行

Imports System.Collections
Imports System.Windows.Forms

Public Class MySorter
    Implements IComparer

    Public Mycomparer As Comparer
    'Public sortColumn As Integer

    'Public MysortOrder As SortOrder

    Public Sub mySorter()
        sortColumn = 0
        MysortOrder = SortOrder.Ascending

        Mycomparer = Comparer.Default

    End Sub

    '指定进行排序的列
    Public Property sortColumn() As Integer
        Get
            Return sortColumn
        End Get

        Set(ByVal Value As Integer)
            sortColumn = Value
        End Set

    End Property


    '指定按升序或降序进行排序
    Public Property MysortOrder() As SortOrder

        Get
            Return MysortOrder

        End Get
        Set(ByVal Value As SortOrder)
            MysortOrder = Value
        End Set
    End Property

    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare

        Dim CompareResult As Integer
        Dim itemX As ListViewItem = CType(x, ListViewItem)

        Dim itemY As ListViewItem = CType(y, ListViewItem)

        '在这里可以提供自定义的排序
        CompareResult = Mycomparer.Compare(itemX.SubItems(Me.sortColumn).Text, itemY.SubItems(Me.sortColumn).Text)
        If Me.MysortOrder = SortOrder.Ascending Then
            Return CompareResult
        ElseIf Me.MysortOrder = SortOrder.Descending Then
            Return -CompareResult
        Else
            Return 0
        End If

    End Function


End Class