Bewegen Sie Elemente von einer ListView

Dies ist eine einfache, aber sehr selten gesehen, Beispiel dafür, wie wir tun, in Visual Basic. NET zu bewegen (im Code) Elemente in einem ListView.

Brauchen Sie ein Formular mit einem ListView und zwei Schaltflächen:

Nun füllen Sie das ListView mit einigen Daten für das Beispiel und wird im Load-Ereignis des gleichen:

 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 ("Elisa")
 ListView1.Items.Add ("Augustinus")
 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

Beachten Sie, dass wir auch seteado drei sehr wichtige Eigenschaften: FullRowSelect = True für einen Artikel, indem Sie die gesamte Zeile markiert ist, MultiSelect = False, so dass nur Sie können wählen Sie einen Artikel und HideSelection = False, um immer sehen, was Element ausgewählt .

Dann in der UP-Taste Click-Ereignis:

 Wenn ListView1.SelectedIndices.Count> 0 Then
 Versuchen
 Dim Zeit As String
 temp = ListView1.Items (ListView1.FocusedItem.Index - 1). Text

 ListView1.Items (ListView1.FocusedItem.Index - 1). Text = ListView1.FocusedItem.Text
 ListView1.FocusedItem.Text = temporäre

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

 Catch ex As Exception
 Beep ()
 End Try
 Sonst
 MsgBox ("Sie müssen ein Element aus der Liste auszuwählen.")
 End If

und die AB-Taste Click-Ereignis:

 Wenn ListView1.SelectedIndices.Count> 0 Then
 Versuchen
 Dim Zeit As String
 temp = ListView1.Items (ListView1.FocusedItem.Index + 1). Text </ code>

 ListView1.Items (ListView1.FocusedItem.Index + 1). Text = ListView1.FocusedItem.Text
 ListView1.FocusedItem.Text = temporäre

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

 Catch ex As Exception
 Beep ()
 End Try
 Sonst
 MsgBox ("Sie müssen ein Element aus der Liste auszuwählen.")
 End If

Das ist es, kann sie ausführen und testen, wie es funktioniert. Ich lasse ein laufendes Fang des Programms:

Ich hoffe, dass, wie ich, sie sind sehr nützlich.