vb.net listview表格控件任意列排序和增加排序小箭头

在VB.Net中，可以使用ListView控件进行表格的展示和排序，并且可以通过增加排序小箭头的方式来显示当前排序的列。

1. 实现任意列排序：
ListView控件原生支持按照某一列进行排序，可以通过设置ListView的Sorting属性来指定排序的方式。例如，可以将Sorting属性设置为Ascending来实现按照升序排序，设置为Descending来实现按照降序排序。当点击列标题时，可以在ColumnClick事件中获取到当前点击的列索引，并在事件处理程序中编写排序逻辑，最后将Sorting属性设置为正确的排序方式即可。

2. 增加排序小箭头：
ListView控件并没有直接提供增加排序小箭头的方法，但可以通过一些其他方式来实现。可以使用ImageList控件创建一个包含排序箭头图像的ImageList对象，然后通过在ListView的列头上绘制箭头图像的方式来显示排序状态。可以通过ColumnClick事件来确定当前点击的列，并根据排序方式设置不同的图像来改变箭头的显示。

下面是一个简单的示例代码：

' 假设ListView控件名为listView1，ImageList控件名为imageList1

' 初始化ImageList
imageList1.Images.Add("asc", Image.FromFile("arrow_up.png"))
imageList1.Images.Add("desc", Image.FromFile("arrow_down.png"))

' 列头点击事件处理程序
Private Sub listView1_ColumnClick(sender As Object, e As ColumnClickEventArgs) Handles listView1.ColumnClick
    ' 获取当前排序的列索引
    Dim columnIndex As Integer = e.Column

    ' 判断是否当前列为排序列
    If columnIndex = listView1.Sorting AndAlso listView1.Sorting <> SortOrder.None Then
        ' 如果当前列已经是排序列，则切换排序方式
        If listView1.Sorting = SortOrder.Ascending Then
            listView1.Sorting = SortOrder.Descending
        Else
            listView1.Sorting = SortOrder.Ascending
        End If
    Else
        ' 如果当前列不是排序列，则按默认升序排序
        listView1.Sorting = SortOrder.Ascending
    End If

    ' 设置当前排序列索引
    listView1.Sorting = columnIndex

    ' 根据排序方式设置列头图像
    If listView1.Sorting = SortOrder.Ascending Then
        listView1.Columns(columnIndex).ImageKey = "asc"
    ElseIf listView1.Sorting = SortOrder.Descending Then
        listView1.Columns(columnIndex).ImageKey = "desc"
    Else
        listView1.Columns(columnIndex).ImageKey = Nothing
    End If

    ' 执行排序操作
    listView1.Sort()
End Sub

通过以上代码，可以实现在ListView的列头点击后进行任意列排序，并且根据排序方式显示相应的排序小箭头图像。