Pārvietot preces no vienas ListView

Tas ir vienkāršs, bet ļoti reti, piemērs tam, kā mēs to darām ar Visual Basic. Net pārvietoties (ar kodu) vienumus ListView.

Nepieciešama forma ar ListView un divas pogas:

Tagad, aizpildiet ListView ar dažiem piemērā datu un būs arī Load gadījumā pats:

 ListView1.Items.Add ("Carlos")
 ListView1.Items.Add ("Marcelo")
 ListView1.Items.Add ("Damian")
 ListView1.Items.Add ("Sjūzena")
 ListView1.Items.Add ("Gerard")
 ListView1.Items.Add ("Claudia")
 ListView1.Items.Add ("Marta")
 ListView1.Items.Add ("Liliana")
 ListView1.Items.Add ("Elīsa")
 ListView1.Items.Add ("Augustine")
 ListView1.Items.Add ("Camila")
 ListView1.Items.Add ("Lucas")
 ListView1.Items.Add ("Jorge")
 ListView1.Items.Add ("Mabel")
 ListView1.Items.Add ("Natālija")
 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 ("Abela")
 ListView1.Items.Add ("Pēteris")

ListView1.FullRowSelect = True
ListView1.MultiSelect = False

ListView1.HideSelection = False

Ievērojiet, ka mēs arī seteado trīs ļoti svarīgas īpašības: FullRowSelect = True objektu, izvēloties visa rinda tiek atzīmēta, MultiSelect = False, lai tikai jūs varat izvēlēties objektu un HideSelection = False vienmēr redzētu vienums ir atlasīts .

Tad UP pogu noklikšķiniet gadījumā:

 Ja ListView1.SelectedIndices.Count> 0 Tad
 Mēģināt
 Dim laiks Kā String
 temp = ListView1.Items (ListView1.FocusedItem.Index - 1). Dokuments

 ListView1.Items (ListView1.FocusedItem.Index - 1). Teksts = ListView1.FocusedItem.Text
 ListView1.FocusedItem.Text = pagaidu

 ListView1.Items.Item (ListView1.FocusedItem.Index - 1). Atlasīts = True
 ListView1.Items.Item (ListView1.FocusedItem.Index - 1). Mērķtiecīgs = True

 Catch ex Kā Izņēmums
 Pīkstiens ()
 Beigt Mēģiniet
 Cits
 MsgBox ("Jums ir jāizvēlas objektu sarakstā.")
 Beigas Ja

un DOWN pogu noklikšķiniet notikums:

 Ja ListView1.SelectedIndices.Count> 0 Tad
 Mēģināt
 Dim laiks Kā String
 temp = ListView1.Items (ListView1.FocusedItem.Index + 1). Teksts </ code>

 ListView1.Items (ListView1.FocusedItem.Index + 1). Teksts = ListView1.FocusedItem.Text
 ListView1.FocusedItem.Text = pagaidu

 ListView1.Items.Item (ListView1.FocusedItem.Index + 1). Atlasīts = True
 ListView1.Items.Item (ListView1.FocusedItem.Index + 1) Mērķtiecīgus =. Patiess

 Catch ex Kā Izņēmums
 Pīkstiens ()
 Beigt Mēģiniet
 Cits
 MsgBox ("Jums ir jāizvēlas objektu sarakstā.")
 Beigas Ja

Tas ir tas, tie var palaist un pārbaudīt, kā tā darbojas. Es atstāju kārtējais nozveju no programmas:

Es ceru, ka, piemēram, man, viņi būs ļoti noderīgs.