Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
УЧЕБНОЕ ПОСОБИЕ VBA.doc
Скачиваний:
25
Добавлен:
27.10.2018
Размер:
8.97 Mб
Скачать

3.5.3 Многоэлементный выбор из списка

Свойство списка MultiSelect позволяет устанавливать режим, при котором допустим выбор нескольких элементов из списка.

Устанавливает способ выбора элементов списка. Возможные значения:

fmMultiSelectSingle или 0 (выбор только одного элемента);

fmMultiSelectMulti или 1 (разрешен выбор нескольких элементов, выбор осуществляется либо щелчком, либо нажатием клавиши <Пробел>);

fmMultiSelectExtended или 2 (разрешено использование клавиши <Shift> при выборе ряда последовательных элементов списка).

Свойство Selected предоставляет возможность проверить, выбран ли элемент с указанным индексом.

Пример 1.

Постановка задачи. Создать форму, позволяющую вычислить среднее значения выбранных в списке элементов (рисунок 49). Расположить список, кнопку и поле ввода.

Рисунок 49 – Диалоговое окно «Среднее значение»

Технология выполнения задания:

1 При помощи окна Properties установить значения свойств Name и Caption элементов управления следующим образом, как показано в таблице 43.

Таблица 43 – Свойства элементов управления

Элемент управления

Свойство

Значение

Форма

Caption

Среднее значение

Кнопка

Name

Caption

CommandButton1

ОК

Кнопка

Name

Caption

CommandButton2

END

Поле ввода

Name

TextBox1

Список

Name

ListBox1

2 В модуле формы набрать следующий код (рисунки 50, 51, 52). Проект готов.

Примечание. При инициализации формы список заполняется последовательностью случайных чисел из интервала от 0 до 100. Щелчком мыши с помощью клавиатуры <Ctrl> (выбор несмежных элементов списка) или <Shift> (выбор смежных элементов списка) выбрать группу элементов в списке. Нажать кнопку ОК, и в поле ввода отобразится среднее арифметическое значение выбранных из списка чисел.

Рисунок 50 – Программный код формирования списка

Среднее значение равно сумме значений, деленной на их количество. Если в списке не выбран ни один элемент, то данная формула приведет к генерации ошибки деления на нуль. Поэтому, во избежание этой ошибки в коде сначала определяется количество выбранных элементов, и если оно положительно, то лишь тогда находится среднее значение.

Рисунок 51 – Программный код, с помощью которого определяется количество

выбранных элементов и их среднее значение

Элемент управления ComboBox (Поле со списком). Применяется для хранения списка значений. Он сочетает в себе функциональные возможности списка и поля ввода. В отличие от списка в Поле со списком отображается только один элемент. У него отсутствует режим выделения нескольких элементов списка. Поле со списком позволяет пользователю вводить значение через поле ввода, как это делает элемент управления Поле.

Рисунок 52 – Программный код командной кнопки END

Свойства элемента управления Поле со списком, такие как ListIndex, ListCount, List и методы Clear, RemoveItem и AddItem, аналогичны соответствующим свойствам и методам элемента управления Список.

Кроме того, у него есть ряд уникальных свойств, указанных в таблице 44.

Таблица 44 - Свойства объекта «Поле со списком»

Свойство

Описание

DropButtonStyle

Устанавливает вид поля со списком. Допустимые значения:

- fmDropButtonStylePlain или 0 (кнопка без символов)

- fmDropButtonStyleArrow или 1 (кнопка со стрелкой)

- fmDropButtonStyleEllipsis или 2 (кнопка с эллипсом)

- fmDropButtonStyleReduce или 3 (кнопка с линией)

ListRows

Устанавливает количество элементов, отображаемых в поле со писком

MathRequired

Допустимые значения: True (в поле ввода нельзя ввести значения, отличные от перечисленных в списке, т.е. в Поле со списком отключается функция поля ввода) и False ( в противном случае)

MathFound

Допустимые значения: True (среди элементов поля со списком имеется элемент, который совпадает с элементом, вводимым в поле ввода) и False (в противном случае)