Premjesti stavke iz jedne listview

Ovo je jednostavan, ali vrlo rijetko vidi, primjer kako i mi u Visual Basic. Neto premjestiti (u kodu) stavke u listview.

Trebate obrazac s listview i dvije tipke:

Sada, ispunite listview s nekim podacima za primjer i da će u slučaju Load isti:

 ListView1.Items.Add ("Carlos")
 ListView1.Items.Add ("Marcelo")
 ListView1.Items.Add ("Damjana")
 ListView1.Items.Add ("Susan")
 ListView1.Items.Add ("Gerard")
 ListView1.Items.Add ("Claudia")
 ListView1.Items.Add ("Marta")
 ListView1.Items.Add ("Liliana")
 ListView1.Items.Add ("Elizej")
 ListView1.Items.Add ("Augustin")
 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 ("Ivan")
 ListView1.Items.Add ("Maria")
 ListView1.Items.Add ("Abel")
 ListView1.Items.Add ("Petrova")

ListView1.FullRowSelect = True
ListView1.MultiSelect = False

ListView1.HideSelection = False

Imajte na umu da i mi seteado tri vrlo važna svojstva: FullRowSelect = True za predmet odabirom cijeli redak je označen, MultiSelect = False, tako da samo vi možete odabrati stavku i HideSelection = False uvijek vidjeti što stavka odabrana .

Tada se u UP klik na gumb slučaju:

 Ako ListView1.SelectedIndices.Count> 0 tada
 Pokušati
 Dim vrijeme kao niz
 temp = ListView1.Items (ListView1.FocusedItem.Index - 1). Tekst

 ListView1.Items (ListView1.FocusedItem.Index - 1). Tekst = ListView1.FocusedItem.Text
 ListView1.FocusedItem.Text = privremeni

 ListView1.Items.Item (ListView1.FocusedItem.Index - 1). Odabrani = True
 ListView1.Items.Item (ListView1.FocusedItem.Index - 1). Fokusiranim = True

 Catch ex Kao iznimkom
 Zvučni signal ()
 Pokušajte završiti
 Drugo
 MsgBox ("Morate odabrati stavku s popisa.")
 Kraj Ako je

i dolje tipku miša događaj:

 Ako ListView1.SelectedIndices.Count> 0 tada
 Pokušati
 Dim vrijeme kao niz
 temp = ListView1.Items (ListView1.FocusedItem.Index + 1). Tekst </ code>

 ListView1.Items (ListView1.FocusedItem.Index + 1). Tekst = ListView1.FocusedItem.Text
 ListView1.FocusedItem.Text = privremeni

 ListView1.Items.Item (ListView1.FocusedItem.Index + 1). Odabrani = True
 ListView1.Items.Item (ListView1.FocusedItem.Index + 1). Fokusiranim = True

 Catch ex Kao iznimkom
 Zvučni signal ()
 Pokušajte završiti
 Drugo
 MsgBox ("Morate odabrati stavku s popisa.")
 Kraj Ako je

To je to, oni mogu raditi i testirati kako to radi. Sam ostavio trčanje ulov programa:

Nadam se da, poput mene, oni će biti vrlo korisno.