Mover elementos dun listview

Este é un exemplo simple, pero moi raramente visto, de como facer o Visual Basic. Net para mover (en código) elementos nun listview.

Precisa dun formulario cun listview e dous botóns:

Agora, encher o listview con algúns datos para o exemplo e ganas no evento Load do mesmo:

 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 ("Eliseu")
 ListView1.Items.Add ("Agostinho")
 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 ("Matías")
 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

Teña en conta que tamén seteado tres propiedades moi importantes: FullRowSelect = True a un elemento escollendo a liña enteira é marcada, MultiSelect = False, para que só pode seleccionar un elemento e HideSelection = False sempre ver que elemento está seleccionado .

A continuación, no evento UP prema no botón:

 Se ListView1.SelectedIndices.Count> 0 THEN
 Intentar
 Tempo Din As cadea
 tempo = ListView1.Items (ListView1.FocusedItem.Index - 1). Texto

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

 ListView1.Items.Item (ListView1.FocusedItem.Index - 1). Selected = True
 ListView1.Items.Item (ListView1.FocusedItem.Index - 1). Focada = True

 Catch ex As Exception
 Campá ()
 End Try
 Outro
 MsgBox ("Debe seleccionar un elemento da lista.")
 End If

eo evento clic abaixo:

 Se ListView1.SelectedIndices.Count> 0 THEN
 Intentar
 Tempo Din As cadea
 tempo = Texto ListView1.Items (ListView1.FocusedItem.Index + 1). </ code>

 ListView1.Items (ListView1.FocusedItem.Index + 1) Texto. = ListView1.FocusedItem.Text
 ListView1.FocusedItem.Text = temporal

 ListView1.Items.Item (ListView1.FocusedItem.Index + 1). Selected = True
 ListView1.Items.Item (ListView1.FocusedItem.Index + 1). Focada = True

 Catch ex As Exception
 Campá ()
 End Try
 Outro
 MsgBox ("Debe seleccionar un elemento da lista.")
 End If

É iso, poden facer e probar como funciona. Deixo un prendedor execución do programa:

Espero que, coma min, eles serán moi útiles.