在vb.net中对列表视图进行排序

' 列表视图排序状态
Private sortColumn As Integer = -1
Private sortAscending As Boolean = True

' 列表视图的ColumnClick事件处理程序
Private Sub ListView1_ColumnClick(sender As Object, e As ColumnClickEventArgs) Handles ListView1.ColumnClick
    ' 判断点击的列是否与上次点击的列相同
    If e.Column = sortColumn Then
        ' 切换排序状态
        sortAscending = Not sortAscending
    Else
        ' 设置新的排序列
        sortColumn = e.Column
        sortAscending = True
    End If

    ' 执行排序
    ListView1.ListViewItemSorter = New ListViewItemComparer(e.Column, sortAscending)
    ListView1.Sort()

    ' 更新排序箭头的显示
    For i As Integer = 0 To ListView1.Columns.Count - 1
        If i = e.Column Then
            If sortAscending Then
                ListView1.Columns(i).Text = ListView1.Columns(i).Text & " ▲"
            Else
                ListView1.Columns(i).Text = ListView1.Columns(i).Text & " ▼"
            End If
        Else
            ListView1.Columns(i).Text = ListView1.Columns(i).Text.TrimEnd(" ▲▼")
        End If
    Next
End Sub

' 自定义的比较器类
Private Class ListViewItemComparer
    Implements IComparer

    Private column As Integer
    Private ascending As Boolean

    Public Sub New(column As Integer, ascending As Boolean)
        Me.column = column
        Me.ascending = ascending
    End Sub

    Public Function Compare(x As Object, y As Object) As Integer Implements IComparer.Compare
        Dim itemX As ListViewItem = DirectCast(x, ListViewItem)
        Dim itemY As ListViewItem = DirectCast(y, ListViewItem)

        ' 获取需要比较的子项的文本
        Dim textX As String = itemX.SubItems(column).Text
        Dim textY As String = itemY.SubItems(column).Text

        ' 执行比较
        Dim result As Integer = String.Compare(textX, textY)

        ' 根据排序顺序调整结果
        If Not ascending Then
            result = -result
        End If

        Return result
    End Function
End Class