Создание новой коллекции для выполнения групповых действий

Стандартные свойства и методы коллекций

End Sub

Next frmElement

For Each frmElement In Forms

Создание классов, содержащих коллекции

End Function

End Select

Income = MyObject.Sum + MyObject.Sum * Percent

Процедура Income оценивает промежуток времени с момента найма сотрудника (дата приема на работу хранится в свойстве DateN) для того, чтобы назначить служащему 20- или 60-процентную надбавку. Данное правило инкапсулировано внут­ри класса clsEmployee.

Коллекция — это набор объектов, объединенных под одним именем, каждый из которых может иметь свой определенный тип. Visual Basic содержит встроенные коллекции объектов, например такие как Forms или Controls. Чтобы выполнить действия над всеми элементами коллекций, можно воспользоваться конструкцией For Each … Next. Например, процедура Minimize минимизирует все загруженные формы приложения.

Sub Minimize()

‘Минимизация всех загруженных форм

Dim frmElement As Form

‘Цикл для каждой загруженной формы.

‘Минимизируем форму.

frmElement.WindowState=vbMinimized

Коллекции решают следующие проблемы:

• обеспечивают стандартизованный способ создания и работы с множеством экземпляров объекта;

• группируют сходные объекты для выполнения определенных задач, например, для измене­ния цветовых свойств или перетаскивания элемента управления на новое место;

• позволяют организовать большие системы объектов в виде иерархических структур;

• в отличие от массива, в коллекции могут содержаться данные разных типов.

У всех созданных пользователем коллекций существует некоторые общие свойства и методы.

Таблица 4.1

Свойство	Назначение
Count	Сообщает кол-во объектов в коллекции

Таблица 4.2

Метод	Назначение
Add	Добавляет объект в коллекцию
Remove	Удаляет объект из коллекции
Item	Возвращает один объект из коллекции

Коллекции Forms и Controls обслуживаются непосредственно самим Visual Basic, поэтому у них методов Add и Remove нет. В качестве параметров метода Add обычно используются имя объекта и его индекс для определения объекта в коллекции. Однако для коллекций различных типов методы Add и Remove могут определяться по-разному.

Можно создавать коллекции, содержащие формы, элементы управления и объекты. Разрабатывая новую коллекцию, следует использовать объектный тип данных Collection. Например:

Программа создает новую коллекцию под именем colTextBoxes и добавляет в нее все текстовые поля из формы.

' Создаем новую коллекцию для всех текстовых полей формы

Dim colTextBoxes As New Collection

Private Sub Form_Initialize()

' Переменная, используемая в цикле For… Each для временного

' хранения указателя на элемент управления

Дата добавления: 2014-12-10