Практическая работа по VISUAL BASIC.Проект «Выбор из списка"

Пример «Выбор из списка» Выполнив задания этой практической работы, вы научитесь: ­ создавать форму и размещать  на ней элементы  управления (CommandButton, ListBox, ComboBox); ­ устанавливать свойства  элементов управления (Caption, List, ListCount, AddItem); ­   вводить   текст     программы   и   её   отладка   (вспомните   условный   оператор,   цикл   со счетчиком); ­ сохранять проект. Для выполнения задания вам надо знать: ­ элементы  управления и их свойства; Класс объектов Свойства CommandButton (кнопка) Caption (надпись) Значение по умолчанию Command1 Command2 ComboBox (разворачивающийся список) List  (массив   вариантов выбора списка) Combo1  Новое  значение  Добавить  Удалить Красный Синий Зеленый Желтый Черный Более подробные сведения об объектах и их свойствах можно найти в конце брошюры. ­ свойство ListCount(количество элементов в списке); ­ метод AddItem (добавление элемента в список)  Задание:     управляющие   расположив   на   ней элементы, 1)   Создать   форму, соответствующие настроив их свойства. 2) Составить событийную процедуру, которая бы при   выборе   информации   из   разворачивающегося списка   и   нажатии   на   кнопку   ДОБАВИТЬ вписывала его элементом в общий список, а при выделении   любого   элемента   из   общего   списка   и нажатии кнопки  УДАЛИТЬ – стирала его. 3)  Сохранить проект в папке «Проекты». Примерный       образец       решения Private Sub Command1_Click() p = 1 For i = 0 To List1.ListCount ­ 1 If Combo1.Text = List1.List(i) Then p = 0 End If Next i If p = 1 Then List1.AddItem (Combo1.Text) End If End Sub Private Sub Command2_Click() If List1.ListIndex > ­1 Then List1.RemoveItem (List1.ListIndex) End If End Sub