ListView按指定列排序

Public Class ListViewColumnSorterClass ListViewColumnSorter
        Implements IComparer
        Public SortColumn As Int16
        Public order As SortOrder
        Private objCompare As CaseInsensitiveComparer

        Sub New()Sub New()
            order = SortOrder.None
            objCompare = New CaseInsensitiveComparer
        End Sub
        Public Function Compare()Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
            Dim result As Int16
            Dim listItemA As ListViewItem = TryCast(x, ListViewItem)
            Dim listItemB As ListViewItem = TryCast(y, ListViewItem)
            result = objCompare.Compare(listItemA.SubItems(SortColumn).Text, listItemB.SubItems(SortColumn).Text)
            If order = SortOrder.Ascending Then
                Return result
            ElseIf order = SortOrder.Descending Then
                Return -result
            Else
                Return 0
            End If
        End Function
    End Class

 

Private lvwColumnSort As ListViewColumnSorter = Nothing

    Private Sub lvwCpt_ColumnClick()Sub lvwCpt_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles lvwCpt.ColumnClick

        If lvwColumnSort Is Nothing Then
            lvwColumnSort = New ListViewColumnSorter
            Me.lvwCpt.ListViewItemSorter = lvwColumnSort
        End If

        If e.Column = lvwColumnSort.SortColumn Then
            If lvwColumnSort.order = SortOrder.Ascending Then
                lvwColumnSort.order = SortOrder.Descending
            Else
                lvwColumnSort.order = SortOrder.Ascending
            End If
        Else
            lvwColumnSort.SortColumn = e.Column
            lvwColumnSort.order = SortOrder.Ascending
        End If

        Me.lvwCpt.Sort()

    End Sub

     对于ListView排序，ListView中的Sort方法主要调用　IComparer　这个接口，只要我们对这个接口实现代码,便可以对指定的任何一列进行　升/降　排序,上面我把它写成一个　类　,主要你　Copy 到你的代码中稍加修改便可以完成.　　不错吧！＊＿＊