[RESOLVED] remove Listview column sortorder

[clausowitz]

I have a windows form with a Listview.
When I click the header of the listview an arrow is shown to indicate the sorting order.

    Private Sub ListView1_ColumnClick(sender As Object, e As ColumnClickEventArgs) Handles ListView1.ColumnClick

        Dim new_sorting_column As ColumnHeader =
        ListView1.Columns(e.Column)

        If e.Column = 0 Then
            Exit Sub
        End If
        Dim sort_order As System.Windows.Forms.SortOrder
        If m_SortingColumn Is Nothing Then
            sort_order = SortOrder.Ascending
        Else
            ' See if this is the same column.
            If new_sorting_column.Equals(m_SortingColumn) Then
                If m_SortingColumn.Text.StartsWith(ChrW(&H25B2)) Then
                    sort_order = SortOrder.Descending
                Else
                    sort_order = SortOrder.Ascending
                End If
            Else
                sort_order = SortOrder.Ascending
            End If

            ' Remove the old sort indicator.
            m_SortingColumn.Text =
            m_SortingColumn.Text.Substring(2)
        End If

        m_SortingColumn = new_sorting_column
        If sort_order = SortOrder.Ascending Then
            m_SortingColumn.Text = ChrW(&H25B2) & " " & m_SortingColumn.Text  'asc
        Else
            m_SortingColumn.Text = ChrW(&H25BC) & " " & m_SortingColumn.Text  'desc
        End If

        ListView1.ListViewItemSorter = New _
        ListViewComparer(e.Column, sort_order)
        ListView1.Sort()
    End Sub

When I click a button the Listview is cleared. When that happens I want the arrow in the columnheader to be removed so it just shows the header title.

[techgnome]

Stab in the dark here, but try setting ListView1.ListViewItemSorter to Nothing when you clear the LV.


-tg

[clausowitz]

tg

it doesn't remove the arrow from the columnheader

[Inferrd]

Do you realise that it's your code that is adding the arrow?

m_SortingColumn = new_sorting_column
If sort_order = SortOrder.Ascending Then
    m_SortingColumn.Text = ChrW(&H25B2) & " " & m_SortingColumn.Text  'asc
Else
    m_SortingColumn.Text = ChrW(&H25BC) & " " & m_SortingColumn.Text  'desc
End If

So wherever you clear the Items collection, you should add code to rewrite the appropriate column header's Text without the arrow.

[clausowitz]

Yes I did realise that.
But I have no idea how to write the code

[si_the_geek]

Try this:

m_SortingColumn.Text = m_SortingColumn.Text.SubString(2)