Memindahkan item dari satu ListView

Ini adalah contoh sederhana, tetapi sangat jarang terlihat, bagaimana kita lakukan dalam visual basic. Bersih untuk bergerak (dalam kode) item dalam ListView.

Butuh bentuk dengan ListView dan dua tombol:

Sekarang, mengisi ListView dengan beberapa data untuk contoh dan akan di acara Load yang sama:

 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 ("Agustinus")
 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 ("Petrus")

ListView1.FullRowSelect = True
ListView1.MultiSelect = False

ListView1.HideSelection False =

Perhatikan bahwa kita juga seteado tiga sangat penting sifat: FullRowSelect = True untuk item dengan memilih seluruh baris ditandai, MultiSelect = False sehingga hanya Anda dapat memilih item dan HideSelection = False untuk selalu melihat apa item yang dipilih .

Kemudian pada acara klik tombol UP:

 Jika ListView1.SelectedIndices.Count> 0 Then
 Mencoba
 Dim waktu As String
 temp = ListView1.Items (ListView1.FocusedItem.Index - 1). Teks

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

 ListView1.Items.Item (ListView1.FocusedItem.Index - 1). Terpilih Benar =
 ListView1.Items.Item (ListView1.FocusedItem.Index - 1). Fokus = True

 Menangkap mantan Sebagai Exception
 Bunyi ()
 Akhir Coba
 Lain
 MsgBox ("Anda harus memilih item dari daftar.")
 End If

dan acara tombol BAWAH klik:

 Jika ListView1.SelectedIndices.Count> 0 Then
 Mencoba
 Dim waktu As String
 temp = ListView1.Items (ListView1.FocusedItem.Index + 1). Teks </ code>

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

 ListView1.Items.Item (ListView1.FocusedItem.Index + 1). Terpilih Benar =
 ListView1.Items.Item (ListView1.FocusedItem.Index + 1) = Fokus. Benar

 Menangkap mantan Sebagai Exception
 Bunyi ()
 Akhir Coba
 Lain
 MsgBox ("Anda harus memilih item dari daftar.")
 End If

Itu saja, mereka dapat menjalankan dan menguji cara kerjanya. Saya meninggalkan menangkap menjalankan PROGRAM:

Saya berharap bahwa, seperti saya, mereka akan sangat berguna.