Выбор нескольких элементов из списка

Вычисление среднего значения выбранных в списке элементов:

ListBox1.List = Array (1,2,3,4,5,6,7,8)

ListBox1.ListIndex = 0

ListBox1.MultiSelect = fmMultiSelectMulti

Среднее = 0

N = 0

For i = 0 to ListBox1.ListCount - 1

If ListBox1.Selected(i) Then

N = N + 1

Среднее = Среднее + ListBox1.List(i)

End if

Next

Среднее = Среднее / N

Переключатель.Флажок (CheckBox)

Элемент управления (OptionButton) позволяет выбрать из нескольких взаимоисключающих параметров или действий. Переключатели типа CheckBox обычно изображаются группами, обеспечивая возможность выбора альтернативного варианта.

Комбинированные поля (Combobox) сочетают возможности текстового поля и списка. Комбинированное поле позволяет выбрать из списка заранее определенную строку или ввести значение, которого нет в списке. Существует три разновидности комбинированных полей, выбираемые в режиме конструирования: раскрывающиеся комбинированные поля, простые комбинированные поля и раскрывающиеся списки.

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

Особую роль для комбинированного поля играет свойство Style. Оно может принимать три значения, определяющих поведение и внешний вид комбинированного поля.

0 - Раскрывающееся комбинированное поле похоже на стандартное текстовое поле, справа от которого имеется кнопка со стрелкой. Если нажать кнопку, под текстовым полем раскрывается список. Пользователь может либо выбрать строку из списка, либо внести в поле свой собственный вариант. Именно этот вариант обычно называется комбинированным полем.

1 - Простое комбинированное поле представляет собой разновидность описанного выше – единственное отличие состоит в том, что список постоянно остается открытым. Этот вариант выбирается в том случае, если на Вашей форме остается много свободного места.

События комбинированного поля.

Методы комбинированных полей совпадают с методами списков.

Задания на лабораторную работу

Задание 1.

1. Вставьте новую форму. Высота формы – 150, ширина – 200.

2. Поместите на ней два объекта CommandButton. Одну кнопку назвать «Уменьшить», вторую – «Увеличить».

3. При нажатии на кнопку «Увеличить» размер формы должен увеличиваться на 10, не превышая максимальных значений: для высоты – 450; для ширины – 600.

4. При нажатии на кнопку «Уменьшить» размер формы должен уменьшаться на 10, не переходя за минимальный размер формы.

Задание 2.

1. Откройте форму предыдущего задания.

2. Дважды щелкните по форме, чтобы перейти к окну программы. В двух раскрывающихся списках, раскрывающихся в верхней части окна программы, должны быть выбраны строки Form и Load; это означает, что в настоящий момент Вы работаете с событием Load формы.

3. Раскройте второй список и прокручивайте его вниз то тех пор, пока не найдете в нем строку Resize. Тем самым Вы переходите к событию Resize данной формы.

4. Введите в событие Resize следующую строку:

Width = Height

5. Запустите проект.

6. Попробуйте изменить размеры формы различными способами. Как ведет себя форма?

7. Остановите программу.

Задание 3.

Создать форму, которая позволяет выбрать несколько чисел, выводимых в списке, заполняемом случайными значениями при инициализации окна, в диалоговом окне Операции над элементами (рис. 15).

Рис. 15 Объект UserForm

В группе Операции следует установить один из переключателей: Сумма, Произведение или Среднее, чтобы указать какая из операций будет выполняться над выбранными числами. Нажатие кнопки Вычислить должно привести к выполнению операции и выводу результата в поле Результат. Кнопка Закрыть выполняет закрытие диалогового окна, а также должен быть запрет для ввода в поле Результат объекта UserForm.

Лабораторная работа №6
Классы и объекты в Visual Basic for Application

Тема и цель работы

Знакомство с объектами VBA. На практике рассмотреть основные операции и функции.

Теоретический материал, для освоения темы

Объектная модель

Объектная модель MS Excel представляет собой иерархию объектов, подчиненных одному объекту Application, который соответствует самому приложению Office. Многие из этих объектов собраны в библиотеке объектов конкретного приложения, но некоторые из них, например, объект Assistant, входят в библиотеку объектов Office, которая является общей для всех офисных приложений.

Не нашли, что искали? Воспользуйтесь поиском по сайту: