vb listview 自动排序

在 VB 中，可以使用 Listview 控件的 Sort 方法来实现自动排序。该方法接受两个参数：第一个参数是要排序的列的索引，第二个参数是排序类型（升序或降序）。以下是一个简单的示例代码：

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    ' 获取要排序的列的索引
    Dim colIndex As Integer
    colIndex = ColumnHeader.Index - 1
    
    ' 判断当前排序类型，设置下一次排序类型
    Dim sortType As SortOrderEnum
    Select Case ColumnHeader.Tag
        Case "ASC"
            sortType = lvwDescending
            ColumnHeader.Tag = "DESC"
        Case "DESC"
            sortType = lvwAscending
            ColumnHeader.Tag = "ASC"
    End Select
    
    ' 排序
    ListView1.Sort Key1:=colIndex, Order1:=sortType, Header:=True
End Sub

在这个示例中，当用户单击列标题时，会触发 Listview 的 ColumnClick 事件。在该事件中，我们首先获取要排序的列的索引。然后，根据该列的当前排序类型，设置下一次排序类型，并将排序类型保存在列标题的 Tag 属性中。最后，调用 Listview 的 Sort 方法进行排序。

需要注意的是，为了使该示例代码能正常运行，需要将 Listview 控件的 Sorting 属性设置为 lvwManual。