Переміщення елементів з одного списку

Це простий, але дуже рідко, прикладом того, як ми робимо в Visual Basic. NET рухатися (в коді) елементів у вікні списку.

Потрібна форма списку і дві кнопки:

Тепер, заповніть списку з деякими даними для прикладу і буде в разі навантаження та ж:

 ListView1.Items.Add ("Карлос")
 ListView1.Items.Add ("Марсело")
 ListView1.Items.Add ("Даміана")
 ListView1.Items.Add ("Сьюзен")
 ListView1.Items.Add ("Жерар")
 ListView1.Items.Add ("Клаудія")
 ListView1.Items.Add ("Марта")
 ListView1.Items.Add ("Ліліана")
 ListView1.Items.Add ("Єлисей")
 ListView1.Items.Add ("Августин")
 ListView1.Items.Add ("Каміла")
 ListView1.Items.Add ("Lucas")
 ListView1.Items.Add ("Хорхе")
 ListView1.Items.Add («Мейбл»)
 ListView1.Items.Add ("Наталія")
 ListView1.Items.Add ("Gabriella")
 ListView1.Items.Add ("Паула")
 ListView1.Items.Add ("Матіас")
 ListView1.Items.Add ("Мартін")
 ListView1.Items.Add ("John")
 ListView1.Items.Add ("Марія")
 ListView1.Items.Add ("Авель")
 ListView1.Items.Add ("Пітер")

ListView1.FullRowSelect = True
ListView1.MultiSelect = False

ListView1.HideSelection = False

Зверніть увагу, що ми також seteado три дуже важливих властивості: FullRowSelect = True для елемента, вибравши весь ряд наголошується, MultiSelect = False, так що тільки ви можете обрати пункт і HideSelection = False, щоб завжди бачити те, що обраний пункт .

Потім в UP події натискання кнопки:

 Якщо ListView1.SelectedIndices.Count> 0 Then
 Намагатися
 Dim час As String
 температура = ListView1.Items (ListView1.FocusedItem.Index - 1). Text

 ListView1.Items (ListView1.FocusedItem.Index - 1). Text = ListView1.FocusedItem.Text
 ListView1.FocusedItem.Text = тимчасовий

 ListView1.Items.Item (ListView1.FocusedItem.Index - 1). Обраний = True
 ListView1.Items.Item (ListView1.FocusedItem.Index - 1). Орієнтовані = True

 Спіймати вибухозахисту, виключення
 Beep ()
 Кінець Спробуйте
 Ще
 MsgBox ("Ви повинні вибрати елемент зі списку.")
 End If

і вниз події натискання кнопки:

 Якщо ListView1.SelectedIndices.Count> 0 Then
 Намагатися
 Dim час As String
 температура = ListView1.Items (ListView1.FocusedItem.Index + 1). Текст </ код>

 ListView1.Items (ListView1.FocusedItem.Index + 1). Text = ListView1.FocusedItem.Text
 ListView1.FocusedItem.Text = тимчасовий

 ListView1.Items.Item (ListView1.FocusedItem.Index + 1). Обраний = True
 ListView1.Items.Item (ListView1.FocusedItem.Index + 1). Орієнтовані = True

 Спіймати вибухозахисту, виключення
 Beep ()
 Кінець Спробуйте
 Ще
 MsgBox ("Ви повинні вибрати елемент зі списку.")
 End If

От і все, вони можуть працювати і перевірити, як вона працює. Я залишаю працює улову програми:

Я сподіваюся, що, як я, вони будуть дуже корисні.