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

[jirim]

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

[clear_zero]

keydown,keyup,keypress

[gxqianqin]

同意LS

[jacobhunter]

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