4. Создаем дополнительные объекты

Создадим второй список. Снова щелкните на кнопке ListBox (Список). Нарисуйте второй список справа от первого. Пусть его ширина будет примерно такой же,, а высота – поменьше. Никакой настройки для этого списка не требуется – первоначально второй список пуст. Заполняться он будет при работе программы.

Щелкните на кнопке label (Надпись) на панели компонентов. Нарисуйте надпись ниже второго списка. На панели свойств разыщите свойство Caption (Заголовок). Введите в него текст: «Сумма 0». Это начальное значение суммы выбранных чисел (пока ничего не выбрано). Содержание надписи также будет меняться в ходе работы программы.

В пределах надписи должно оставаться свободное место. В зависимости от того, какие числа выбраны, сумма может быть двухзначной и даже трехзначной. Нужно чтобы результат всегда помещался в отведенное место. Задайте для свойства Aligment (Выравнивание) значение:2 - Center (По центру).

После того как в форму включены все нужные объекты, можно уточнять ее размеры. Чтобы их нельзя было изменить во время работы программы, можно задать для свойства BirderStyle (Тип границы) значение 1- Fixed Single (Тонкая фиксированная). Окно программы готово и можно приступать к программированию.

5. Установка и сброс флажков

В окне программы только один элемент управления способен к диалогу – это список флажков. Программа должна что-то делать только в том случае, если один из флажков устанавливается или сбрасывается. В этом случае возникает событие ItemCheck (Пометка пункта). Нужно описать реакцию на него. Щелкните на списке флажков правой кнопкой мыши. Выберите в открывшемся контекстном меню пункт ViewCode (Показать код).

В окне кода выберите в раскрывающемся списке справа событие ItemCheck (Пометка пункта). Система VB создаст заготовку процедуры List1_ ItemCheck для обработки этого события. Номер пункта, для которого был установлен или сброшен флажок, передается через параметр Item.

Также нужно выяснить, установлен был флажок ли сброшен. Информация о состоянии флажка храниться в свойстве Selected (Выбран). Это логический массив, в котором столько элементов, сколько пунктов в списке. Оператор проверки состояния флажка должен выглядеть так:

If List1.Selected(Item) then

Процедура обработки события вызывается уже после того, как состояние флажка изменилось. Поэтому условие истинно, если флажок был только установлен. В этом случае должны добавить во второй список новый пункт. Это делается при помощи метода AddItem. Его параметр – содержимое добавляемого пункта. Пункты списка хранятся в свойстве List. Нужный оператор выглядит так:

List2.AddItem List1.List(Item)

Еще придется перебрать все элементы второго списка и сравнить их с текущим элементов первого списка. Для это понадобится цикл, выполняющий перебор. Число элементов в списке задается свойством ListCount. Нужные операторы будут выглядеть так:

Else

For i=0 To List2.ListCount – 1

If List2.List(i) = List1.List(Item) Then

Из значение свойства ListCount мы вычли единицу. Это сделано потому, что нумерация элементов массива начинается не с единицы, а с нуля. Если условие List2.List(i) = List1.List(Item) истинно, значит, нужный элемент найден. Его номер совпадает с текущим значением переменной i . В этом случае надо удалить этот элемент из списка. Это делается при помощи метода Removeltem:

List2. Removeltem i

End if

Next i

Теперь наша программа умеет правильно реагировать на установку или сброс флажка в списке. Осталось закрыть начатый условный оператор:

End If