Spostare elementi da una listview

Questo è un esempio semplice, ma molto raramente, di come lo facciamo in Visual Basic. Net a muoversi (in codice) gli elementi in una lista.

Bisogno di un form con un controllo ListView e due pulsanti:

Ora, riempire la listview con alcuni dati per l'esempio e la volontà nell'evento Load della stessa:

 ListView1.Items.Add ("Carlos")
 ListView1.Items.Add ("Marcelo")
 ListView1.Items.Add ("Damian")
 ListView1.Items.Add ("Susan")
 ListView1.Items.Add ("Gerard")
 ListView1.Items.Add ("Claudia")
 ListView1.Items.Add ("Marta")
 ListView1.Items.Add ("Liliana")
 ListView1.Items.Add ("Eliseo")
 ListView1.Items.Add ("Agostino")
 ListView1.Items.Add ("Camila")
 ListView1.Items.Add ("Lucas")
 ListView1.Items.Add ("Jorge")
 ListView1.Items.Add ("Mabel")
 ListView1.Items.Add ("Natalia")
 ListView1.Items.Add ("Gabriella")
 ListView1.Items.Add ("Paula")
 ListView1.Items.Add ("Matias")
 ListView1.Items.Add ("Martin")
 ListView1.Items.Add ("John")
 ListView1.Items.Add ("Maria")
 ListView1.Items.Add ("Abel")
 ListView1.Items.Add ("Peter")

ListView1.FullRowSelect = True
ListView1.MultiSelect = False

ListView1.HideSelection = False

Si noti che anche noi seteado tre proprietà molto importanti: FullRowSelect = True per un articolo selezionando l'intera riga è segnato, MultiSelect = False in modo che solo è possibile selezionare un elemento e HideSelection = False per vedere sempre ciò che elemento è selezionato .

Poi, nel caso UP clic sul pulsante:

 Se ListView1.SelectedIndices.Count> 0 Then
 Prova
 Dim tempo As String
 temp = ListView1.Items (ListView1.FocusedItem.Index - 1). Testo

 ListView1.Items (ListView1.FocusedItem.Index - 1). Text = ListView1.FocusedItem.Text
 ListView1.FocusedItem.Text = temporanea

 ListView1.Items.Item (ListView1.FocusedItem.Index - 1). Selezionato = True
 ListView1.Items.Item (ListView1.FocusedItem.Index - 1). Focalizzata = True

 Catch ex As Exception
 Beep ()
 End Try
 Altro
 MsgBox ("Devi selezionare un elemento dalla lista.")
 End If

e DOWN evento click del pulsante:

 Se ListView1.SelectedIndices.Count> 0 Then
 Prova
 Dim tempo As String
 temp = ListView1.Items (ListView1.FocusedItem.Index + 1). testo </ code>

 ListView1.Items (ListView1.FocusedItem.Index + 1). Text = ListView1.FocusedItem.Text
 ListView1.FocusedItem.Text = temporanea

 ListView1.Items.Item (ListView1.FocusedItem.Index + 1). Selezionato = True
 ListView1.Items.Item (ListView1.FocusedItem.Index + 1). Focalizzata = True

 Catch ex As Exception
 Beep ()
 End Try
 Altro
 MsgBox ("Devi selezionare un elemento dalla lista.")
 End If

Questo è tutto, che possano correre e provare come funziona. Lascio una cattura in esecuzione del programma:

Mi auguro che, come me, sarà molto utile.