ListView排序问题?

Question

怎么样可以实现,单击相应的标题栏,实现排序!!

Answer 1

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    ListView1.Sorted = False
    ListView1.SortKey = ColumnHeader.Index - 1
    ListView1.SortOrder = lvwAscending
    ListView1.Sorted = True
End Sub

Answer 2

Private Sub LvMain_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    LvMain.Sorted = False
    LvMain.SortKey = ColumnHeader.Index - 1
    
    If LvMain.SortOrder = lvwAscending Then
        LvMain.SortOrder = lvwDescending
    ElseIf LvMain.SortOrder = lvwDescending Then
        LvMain.SortOrder = lvwAscending
    End If
    
    LvMain.Sorted = True
End Sub