ListView problem

[parminder]

Hi to all,

Here is a ListView problem :

I have a ListView control on a form. The control's View is "Detail". I am using netsted class ( I named it ListViewItemComparer ) to sort ListView control to use with its "ListViewItemSorter" property and "Sort" method.

The PROBLEM is when I click on column to sort, it works fine; BUT to browse the ListViewControl I have to use mouse ONCE. Without using mouse, browsing of ListView control is not possible with Keyboard like first alphabet of a item, arrow keys (except DOWN arrow key, which moves conrol to first item in ListView control).

So the requirement is, user can click on column-header to sort the column user can use keyboard to select item in ListView control.

Thanks in advance

The code is written below and the simple project also is ATTACHED with this message.

The code :

Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim sortColumn As Integer = -1
'Region " Windows Form Designer generated code (Removed)"
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ListView1.Columns.Add("IName", 200, HorizontalAlignment.Right)
        Me.ListView1.Columns.Add("ICode", 50, HorizontalAlignment.Left)
        Me.ListView1.Columns.Add("Rate", 50, HorizontalAlignment.Right)
 
        Dim lvwi As ListViewItem
 
        lvwi = NewListViewItem("Ice Cream")
        lvwi.SubItems.Add("101")
        lvwi.SubItems.Add("25")
        Me.ListView1.Items.Add(lvwi)
 
        lvwi = NewListViewItem("Soft Drink")
        lvwi.SubItems.Add("102")
        lvwi.SubItems.Add("20")
        Me.ListView1.Items.Add(lvwi)
 
        lvwi = NewListViewItem("Pizza")
        lvwi.SubItems.Add("103")
        lvwi.SubItems.Add("60")
        Me.ListView1.Items.Add(lvwi)
 
        lvwi = NewListViewItem("Choclate Milk Shake")
        lvwi.SubItems.Add("104")
        lvwi.SubItems.Add("50")
        Me.ListView1.Items.Add(lvwi)
    End Sub
 
    Private Function NewListViewItem(ByVal pItemName As String) As ListViewItem
        Dim llvwI As New ListViewItem(pItemName.ToString)
        Return llvwI
    End Function
 
    'Nested Class to support column sorting
    Class ListViewItemComparer
        Implements IComparer
        Private col As Integer
        Private order As SortOrder
        Private IsNumeric As Boolean
        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
            returnVal = [String].Compare(CType(x, ListViewItem).SubItems(col).Text, CType(y, ListViewItem).SubItems(col).Text)
            If order = SortOrder.Descending Then
                returnVal *= -1
            End If
            Return returnVal
        End Function
    End Class
 
    Private Sub ListView1_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles ListView1.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 ListViewItemComparer(e.Column, ListView1.Sorting)
    End Sub
End Class

[Crunch]

ListView is da bomb. Try adding this:

Private Sub lvwItems_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles lvwItems.Enter
        'Select and focus the first item in lvwItems
        If lvwItems.Items.Count > 0 And lvwItems.SelectedItems.Count = 0 Then
            lvwItems.Items(0).Focused = True
            lvwItems.Items(0).Selected = True
        End If
    End Sub

I vaguely recall having to add this because of a similar behavior. Hope it helps.

[parminder]

Thanks Crunch


I want the selected item (before sorting) remain active after sorting, not become first item selected. For this even Focused property is not required.


Thanks again

[Crunch]

Yeah, all my little code snip does is just select and focus the first listviewitem if NO listviewitem is selected (SelectedItems.Count = 0). If I remember right, when no item is selected then keyboard navigation doesn't happen.

If you have an item selected already then my code won't change selection.

[parminder]

any reply ?

[Crunch]

Did you try what I posted?

[parminder]

Yes Crunch,

I have tried, but is not working

Thanks and want to read from you more