B. Перемещение элементов списка
Date: 2015-10-07; view: 487.
· Создать на форме: 3 элементa управления ListBox, элемент управления ComboBox (свойство Style - по умолчанию). Ввести код, данный ниже, стартовать проект, сравнить внешний вид ListBox и ComboBox после открытия пользователем спискаComboBox ; схема размещения элементов дана на рис. 5.1
·
Рис. 5.1.Схема формы
· создать элементы списков и комбинированного списка в режиме выполнения процедуры
· Private Sub Form_Load() · List1.AddItem "ручки"· List1.AddItem "карандаши"· List3.AddItem "бумага"· List3.AddItem "тетради"· Combo1.AddItem "бумага"· Combo1.AddItem "тетради"· Combo1.AddItem "клей"· Combo1.AddItem "скрепки"End Sub· далее ввести код, данный ниже, стартовать проект, сделать повторно несколько двойных щелчков на каких-либо элементах первого списка - элементы перемещаются в другой список. Сделать двойной щелчок на элементах второго списка - происходит перемещение назад.
· Private Sub List1_DblClick() · Label1 = "Перемещение элементов списков"· List2.AddItem List1 ' включить элемент в другой список· ' удалить строку из данного списка· List1.RemoveItem List1.ListIndex · End Sub· · Private Sub List2_ DblClick()· List1.AddItem List2 ' включить элемент в другой список· ' удалить строку из данного списка· List2.RemoveItem List2.ListIndex End Sub| <== previous lecture | | | next lecture ==> |
| TextBox: GotFocus, LostFocus | | | С. Дополнение списков, перемещение элементов списков |