1,451
社区成员
发帖
与我相关
我的任务
分享
Private Sub ListView1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{Down}"
End If
End Sub
Private Sub ListView1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
aa = ListView1.SelectedItem.Index
ListView1.ListItems(aa).Selected = False
ListView1.ListItems(aa + 1).Selected = True
End If
End Sub