Listview Keydom go to top?

[LearnVBnet]

I have Listview1 and listview2
After from listview1 focus to listview2
ex: row 20

keydown listview2 not go to row 21
but go to row 1, also keyUp not go to row 19 but go to row 1

any one can help, what to do

Thanks

[M.Waqas Aslam]

try this code

'use this code on the keydown event of the listbox
If e.KeyData = Keys.Down Then
            ListBox1.SelectedItem = ListBox1.Items(0)
        End If
        If e.KeyData = Keys.Up Then
            ListBox1.SelectedItem = ListBox1.Items(0)
        End If

Hope this helps you

Regards

[LearnVBnet]

ListBox1.SelectedItem = ListBox1.Items(0)

Property SelectedItems is ReadOnly

[M.Waqas Aslam]

Check this Out , May be this will help you :)

[LearnVBnet]

calculator is listbox
not listview

[codeorder]

Not quite clear on your question.
Are you using the KeyUp/KeyDown Events for the ListView or are you referring to the Up/Down arrow keys on your keyboard?

[LearnVBnet]

Private Sub ListGroup_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ListGroup.KeyPress
If Not ListGroup.SelectedItems.Count = 0 Then
With ListGroup.SelectedItems(0)
Dim foundItem As ListViewItem = ListProduct.FindItemWithText(.Text, True, 0, True)

If foundItem IsNot Nothing Then
ListProduct.MultiSelect = False
ListProduct.TopItem = foundItem
foundItem.Selected = True
ListProduct.Select()
ListProduct.Focus()

End If
End With
End If
End Sub

[LearnVBnet]

keydown can work after listproduct have one click mouse

[codeorder]

Now which ListView isNot responding properly? ListGroup or ListProduct?

[codeorder]

"keydown" on which ListView?

[LearnVBnet]

listproduct

[codeorder]

See if this helps.

Private Sub _ListProduct_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListProduct.KeyDown
        With CType(sender, ListView)
            If Not .Items.Count = 0 Then
                .MultiSelect = False
                e.Handled = True '// block default handling.
                Select Case e.KeyCode
                    Case Keys.Up
                        .Items(0).Selected = True '// select first item.
                    Case Keys.Down
                        .Items(.Items.Count - 1).Selected = True '// select last item.
                End Select
                .SelectedItems(0).EnsureVisible() '// make sure that item is visible once selected.
                .HideSelection = False '// keep cute highlight on item.
            End If
        End With
    End Sub

[LearnVBnet]

Now keydown from keyboard can down but to last row not to row 21
keyup and keydown only go to first row and lastrow....

[codeorder]

keydown listview2 not go to row 21
but go to row 1, also keyUp not go to row 19 but go to row 1

any one can help, what to do

Is there still an issue?

[LearnVBnet]

Private Sub ListProduct_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListProduct.ItemSelectionChanged
ListProduct.FullRowSelect = True
ListProduct.HideSelection = False
If Not ListProduct.SelectedItems.Count = 0 Then
Dim lvi As ListViewItem
For Each lvi In ListProduct.SelectedItems
lvi.Focused = True '/// highlight any selected items.
Next
End If
End Sub

Solved... thanks codeorder