Ja hej.

Jag har en listview med tre rader.
Jag skulle vilja, att när man är på den översta raden, och trycker uppåtpil, så ska man hamna på den nedersta raden.


Det borde ju gå att göra så här, tycker jag:

Private Sub ListView1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
With ListView1
If KeyCode = 38 And .SelectedItem.Index = 1 Then
.ListItems(.ListItems.Count - 1).Selected = True
End If
End With
End Sub

Fast det fungerar inte. Något som kan hjälpa till?

MVH PK

Detta var lite klurigt. Det enda sättet jag kan komma på är att göra så här:

Option Explicit

Private Sub Form_Load()
With ListView1
.ColumnHeaders.Add , , "Test"
.LabelEdit = lvwManual
.ListItems.Add , , "1"
.ListItems.Add , , "2"
.ListItems.Add , , "3"
.View = lvwReport
End With
End Sub

Private Sub ListView1_KeyUp(KeyCode As Integer, Shift As Integer)
Static i As Integer
With ListView1
If KeyCode = 38 And .SelectedItem.Index = 1 Then
i = i + 1
If i = 2 Then
.ListItems(.ListItems.Count).Selected = True
i = 0
End If
Else
i = 0
End If
End With
End Sub

Hej Roger.

Den där koden funkar men är mycket långsam, och det funkar inte om man håller intryckt pil-upp-tangenten.

Jag undrar samtidigt vad det är för skillnad på KeyUp och KeyDown.

MVH PK