VB.NET中LISTVIEW控件点击列首排序问题

最新推荐文章于 2024-12-11 18:01:11 发布

原创最新推荐文章于 2024-12-11 18:01:11 发布 · 3.2k 阅读

9 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#listview #vb.net #integer #object #function

本文介绍如何在VB.NET中处理ListView控件的列点击事件，以实现按数字、字母或时间排序的功能。通过创建不同的比较接口，如ListViewItemComparerByInt、ListViewItemComparerByString和ListViewItemComparerByTime，根据用户点击的列进行不同方式的排序。

最近写的程序需要点击LISTVIEW控件的列首排序，搜索了一下网上的文章代码，很少，而且是C#的代码，看了下MSDN，终于搞清楚了VB的写法，MSDN上只有按照字母顺序排序的，于是我加工了一下，可以选择按照数字、时间排序。

LISTVIEW控件名是LV1

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

        Select Case LV1.Columns.Item(e.Column).Text
            Case "状态"
                LV1.ListViewItemSorter = New ListViewItemComparerByInt(e.Column)
            Case "编号"
                LV1.ListViewItemSorter = New ListViewItemComparerByInt(e.Column)
            Case "最后更新时间"
                LV1.ListViewItemSorter = New ListViewItemComparerByTime(e.Column)
            Case Else
                LV1.ListViewItemSorter = New ListViewItemComparerByString(e.Column)
        End Select

End Sub

'按照数字排序接口

Class ListViewItemComparerByInt
Implements IComparer

Private col As Integer

        Public Sub New()
            col = 0
        End Sub

        Public Sub New(ByVal column As Integer)
            col = column
        End Sub

        Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
           Implements IComparer.Compare
            Return [Decimal].Compare(CType(x, ListViewItem).SubItems(col).Text, CType(y, ListViewItem).SubItems(col).Text) '数字
        End Function
    End Class

'按照字母顺序排序接口

Class ListViewItemComparerByString
Implements IComparer

Private col As Integer

    Public Sub New()
        col = 0
    End Sub

    Public Sub New(ByVal column As Integer)
        col = column
    End Sub

    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
       Implements IComparer.Compare
        Return [String].Compare(CType(x, ListViewItem).SubItems(col).Text, CType(y, ListViewItem).SubItems(col).Text) '按文本比较
    End Function
End Class

'按时间顺序排序

Class ListViewItemComparerByTime
Implements IComparer

Private col As Integer

        Public Sub New()
            col = 0
        End Sub

        Public Sub New(ByVal column As Integer)
            col = column
        End Sub

        Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
           Implements IComparer.Compare
            Return [Date].Compare(CType(x, ListViewItem).SubItems(col).Text, CType(y, ListViewItem).SubItems(col).Text) '按时间比较
        End Function
    End Class