Vi sono grato della vostra collaborazione !
Ciao
Fai così:
UP:
If ListView1.SelectedIndices.Count > 0 Then
Dim selezionato As Integer = 0
selezionato = ListView1.SelectedIndices(0)
If ListView1.Items.Count > (selezionato + 1) Then
ListView1.Items(selezionato).Selected = False
ListView1.Items(selezionato + 1).Selected = True
End If
End If
DOWN:
If ListView1.SelectedIndices.Count > 0 Then
Dim selezionato As Integer = 0
selezionato = ListView1.SelectedIndices(0)
If selezionato > 0 Then
ListView1.Items(selezionato).Selected = False
ListView1.Items(selezionato - 1).Selected = True
End If
End If
Il codice è semplice, se lo osservi bene capisci come funziona.
Ciao!
Due cose: se vuoi vedere l'effetto, ricordati di impostare sulla
listview la proprietà HideSelection a false.
inoltre il codice funziona bene se è selezionato un solo elemento.
Per fare in modo che non venga selezionato piu di un elemento, imposta
la proprietà MultiSelect a false.
funziona benissimo grazie !