ListView控件如何用键盘上下移动记录呀? 上下移动触发什么事件?

Question

ListView控件如何用键盘上下移动记录呀? 上下移动触发什么事件?

Answer 1

Private Sub ListView1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case '键盘上移的键值
    '   上移
        '   用户没有选择任何行则不上移
        If ListView1.SelectedItem Is Nothing Then Exit Sub
        If ListView1.SelectedItem.Index > 1 Then
            ListView1.ListItems(ListView1.SelectedItem.Index - 1).Selected = True
        End If
    Case '键盘下移的键值
    '   下移
        '   用户没有选择任何行则不下移
        If ListView1.SelectedItem Is Nothing Then Exit Sub
        If ListView1.SelectedItem.Index < ListView1.ListItems.Count Then
            ListView1.ListItems(ListView1.SelectedItem.Index).Selected = True
        End If
    End Select
End Sub