How to simple sort a ListView? (RESOLVED)

I'd like to sort a ListView (View = Details) by the clicked column (ascending or descending).
I was using this code to do it (VB6):

VB Code:

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As ComctlLib.ColumnHeader)
    With ListView1
        If .SortKey <> ColumnHeader.Index - 1 Then
            .SortKey = ColumnHeader.Index - 1
            .SortOrder = 0
        Else
            If .SortOrder = 0 Then
                .SortOrder = 1
            Else
                .SortOrder = 0
            End If
        End If
    End With
End Sub

What about VB .NET?


Thanks.

You have to implement the IComparer interface. I post some code when I get home.

Ok, thank you. I'm waiting for it...

Here ya go.

Sorry double post

Thanks man, but I get a CRC error every time I download it.

Could you post it again?


Thank you.

Here ya go

Thank you. Now it's all right.

Can I ask you something? How to sort Ascending when Descending and vice-versa? :D


Thanks again.

Quote:

---

Originally posted by AlvaroF1
Thank you. Now it's all right.

Can I ask you something? How to sort Ascending when Descending and vice-versa? :D

Thanks again.

---

VB Code:

Friend Class Form1
 
    Private Sub ListView1_ColumnClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles lvAd.ColumnClick
        If e.Column <> sortColumn Then
            sortColumn = e.Column
            ListView1.Sorting = SortOrder.Ascending
        Else
            If ListView1.Sorting = SortOrder.Ascending Then
                ListView1.Sorting = SortOrder.Descending
            Else
                ListView1.Sorting = SortOrder.Ascending
            End If
        End If
        ListView1.Sort()
        ListView1.ListViewItemSorter = New Comparer(e.Column, ListView1.Sorting)
    End Sub
 
End Class
 
Class Comparer
 
    Implements IComparer
 
    Private Col As Integer
    Private Order As SortOrder
 
    Public Sub New()
        Col = 0
        Order = SortOrder.Ascending
    End Sub
 
    Public Sub New(ByVal column As Integer, ByVal order As SortOrder)
        Col = column
        Me.Order = order
    End Sub
 
    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
        Dim returnVal As Integer = -1
        returnVal = String.Compare(CType(x, ListViewItem).SubItems(Col).Text, CType(y, ListViewItem).SubItems(Col).Text)
        If Order = SortOrder.Descending Then returnVal *= -1
        Return returnVal
    End Function
 
End Class

it is telling me that sortcolumn is not 'dim'ed. What do you declare it as?

I get this error (see attached) when reloading the data into my listview if I have previously sorted it.
Any ideas.

It happens on this line:

Code:

---

returnVal = String.Compare(CType(x, ListViewItem).SubItems(Col).Text, CType(y, ListViewItem).SubItems(Col).Text)

---

Your help, as always, is much appreciated.