Melakukan Sorting pada ListView

Melakukan Pengurutan/Sorting Data
Next Tips, untuk melakukan sorting pada ListView. Ada dua pengurutan yang akan dilakukan secara Ascending (A-Z) atau dari nilai terkecil ke besar dan Descending (Z-A) atau dari nilai terbesar ke kecil.

•  Melakukan Sorting secara Ascending

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

•  Untuk coding di bawah ini, jika anda meng-klik satu kali pada Column Header maka data akan diurutkan secara Ascending dan jika di klik kedua kali (bukan double klik) data akan diurutkan secara Descending

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As _
    MSComctlLib.ColumnHeader)
    ' Sort according to data in this column.
    If ListView1.Sorted And _
        ColumnHeader.Index - 1 = ListView1.SortKey Then
        ' Already sorted on this column, just invert the sort order.
        ListView1.SortOrder = 1 - ListView1.SortOrder
    Else
        ListView1.SortOrder = lvwAscending
        ListView1.SortKey = ColumnHeader.Index - 1
    End If
    ListView1.Sorted = True
End Sub

 Selamat mencoba...(don't forget share your commnet).