Przenoszenie elementów z jednego listview

Jest to prosty, ale bardzo rzadko, przykładem tego, jak robimy to w Visual Basic. NET przenieść (w kodzie) elementów w listview.

Potrzebujesz formularz z listview i dwa przyciski:

Teraz wypełnić listview z niektórych danych dla przykładu i w przypadku obciążenia tego samego:

 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 ("Elizeusz")
 ListView1.Items.Add ("Augustyn")
 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 ("Jan")
 ListView1.Items.Add ("Maria")
 ListView1.Items.Add ("Abel")
 ListView1.Items.Add ("Piotruś")

ListView1.FullRowSelect = True
ListView1.MultiSelect = False

ListView1.HideSelection = False

Zauważ, że my również seteado trzy bardzo ważne właściwości: FullRowSelect = True dla elementu zaznaczając cały wiersz jest oznaczony, MultiSelect = False tak, że tylko Ty możesz wybrać pozycję i HideSelection = False zawsze zobaczyć, co pozycja jest zaznaczona .

Następnie w UP zdarzenia click przycisku:

 Jeśli ListView1.SelectedIndices.Count> 0 Then
 Próbować
 Dim czas As String
 temp = ListView1.Items (ListView1.FocusedItem.Index - 1). Tekst

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

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

 Złap ex jako wyjątek
 Beep ()
 End Try
 Więcej
 MsgBox ("Musisz wybrać pozycję z listy.")
 End If

i DOWN wydarzenie kliknij przycisk:

 Jeśli ListView1.SelectedIndices.Count> 0 Then
 Próbować
 Dim czas As String
 temp = ListView1.Items (ListView1.FocusedItem.Index + 1). Tekst </ code>

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

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

 Złap ex jako wyjątek
 Beep ()
 End Try
 Więcej
 MsgBox ("Musisz wybrać pozycję z listy.")
 End If

To jest to, można je było uruchomić i przetestować jak to działa. Zostawiam działającego połów programu:

Mam nadzieję, że podobnie jak ja, będą bardzo przydatne.