10.Проект prjSubjects. Постановка проблемы

Чтобы на практике опробовать работу одномерного массива с элементом ListBox, сделаем следующий проект. Цель пользователя данного проекта – сформировать перечень предметов, которые изучаются в том учебном заведении, где он учится, в его подразделении в текущем учебном году. (Мы опять предполагаем, что пользователь – ученик.) Для формирования своего перечня он может воспользоваться стандартным перечнем предметов, которые в проекте первоначально формируются в виде одномерного массива. Пользователь, если захочет, может добавить элементы этого массива в объект ListBox, может удалить предварительно выделенные мышкой названия предметов из ListBox и добавить те, которых нет в стандартном списке. Все эти манипуляции пользователь может проделать с помощью первой формы.(Назовем ее frmStandartSubj). Далее он сообщает, что элементы обновленного массива подготовлены, щелкнув на соответствующей командной кнопке, после чего этот массив формируется и распечатывается на второй форме проекта. (Назовем ее frmMySubj).

11. Формирование массива и передача значений его элементов элементу управленияListBox

В нашем проекте будет фигурировать массив названий предметов nameSubj( ). Массив потребуется нам и в коде первой формы, и в коде второй формы. Он должен быть глобальным. Добавим в проект модуль. Назовем его modSubj. Объявим в модуле кода глобальный массив, состоящий из 16 элементов. Вы в своем проекте можете изменить эту цифру. Запишем соответствующую строку кода:

Public nameSubj( 15)

В модуле кода “заполним” массив элементами – это будет стандартный список из 16 предметов. Все это сделаем в процедуре Inpt( ). Допишите процедуру.

Public Sub Inpt( )

nameSubj(0) = "алгебра"

nameSubj(1) = "геометрия"

. . .

End Sub

Затем в коде первой формы вызовем процедуру Inpt( ), чтобы массив к данному моменту времени уже существовал заполненный стандартным набором названий предметов. С помощью метода AddItemзаполним ими строки элемента ListBox. Назовем этот элемент управления lstSubject. Эти операции можно поместить в коде командной кнопки cmdStandart с значением свойства Caption, равным строке“Стандартный набор предметов”. Составим код.

Private Sub cmdStandart_Click( )

Dim i As Integer

Call Inpt

For i = 0 To 15

lstSubject.AddItem (nameSubj(i))

Next i

End Sub

Пользователь, выполнив всю ту часть проекта, которую мы описали, сможет увидеть в элементе lstSubjectстандартный набор названий дисциплин. Нужно дать ему возможность удалять выбираемые им названия вlstSubject и дополнять список теми названиями, которыми он считает нужным его дополнить. Предоставим ему эти возможности, составив соответствующие коды.

Поместим на первую форму командную кнопку cmdRemove, с помощью которой пользователь сможет удалить выбранное им название предмета, и рядом с ним поместим метку, в свойстве Caption которой будет строка “Выберите предмет, которого у Вас нет”. В свойстве Caption кнопки поместим значение: “Удалите его”. Составьте код, используя метод RemoveItem.

Private Sub cmdRemove_Click( )

End Sub

Чтобы пользователь смог дополнить список lstSubject каким-то еще названием, поместим на первую форму еще одну командную кнопку cmdAdd, свойство Caption которой зададим значением “Добавить”.Рядом с ней поместим метку с текстом в свойстве Caption “Хотите добавить элемент, которого нет в списке?”. Название предмета будем вводить с помощью функции InputBox, а пополнять список элементаlstSubject – с помощью метода AddItem. Дополните код.

Private Sub cmdAdd_Click( )

Dim NewSubject As String

NewSubject = InputBox("Введите название нового_ предмета", "новый предмет")

_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

End Sub