Динамические массивы

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

Для реализации всего вышеизложенного нам поможет инструкция ReDim. Сначала может быть описан динамический массив, например, так:

Dim имямассива () [As type]

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

ReDim имямассива (границы) [As type]

Ключевое место в этой инструкции – описание границ изменения индексов. Это описание выглядит следующим образом:

[нижняяграница to] верхняяграница, [нижняяграница to] верхняяграница, …

Для каждого индекса можно задать начальное и конечное значение. Если не задавать начальное, то оно определяется по умолчанию (указано в настройках) либо задается при помощи инструкции Option Base.

Option base 1 'установка нижней границы индексов по умолчанию = 1.

Dim Lower

Dim MyArray(20), TwoDArray(3, 4)

Dim ZeroArray(0 To 5) ' здесь явно указаноа нижняя граница индекса.

Lower = LBound(MyArray) ' функция возвращает значение нижней границы массива =1

Lower = LBound(TwoDArray, 2) ' вернет 1.

Lower = LBound(ZeroArray) ' вернет 0.

Можно переописывать массив неоднократно.

ReDim [Preserve] имямассива (границы) [As type]

Здесь важно, что можно изменять границы индексов. Но самое интересное это то, что можно потребовать сохранить все значения в «старых» элементах (Preserve). При применении слова Preserve можно изменять только последнюю размерность.

ReDim X(10, 10, 10)

. . .

ReDim Preserve X(10, 10, 15)

Еще один важный момент: память, выделенная под статический массив, то есть массив, количество элементов которого задано в инструкции Dim, освобождается только по завершению процедуры или функции, в которой этот массив описан. Если массив описан на уровне модуля, то память, занятая им, освобождается по закрытию документа. Такая расточительность кажется неприемлемой. Для динамических массивов есть замечательная инструкция Erase, которая освобождает память, занятую массивом.

Объектно-ориентированное программирование Базовые понятия ооп

С точки зрения объектно – ориентированного программирования (ООП) объект – это сущность, обладающая свойствами, то есть поименованными значениями, которые можно прочитать и/или записать, и методами, то есть процедурами и функциями, изменяющими значения свойств и/или имеющими некоторый внешний эффект. Следует отметить, что достаточно часто стирается грань между свойствами и методами. Это объясняется в частности требованием инкапсуляции. Разработчик может хранить некоторое значение или вычислять его при каждом обращении, но для пользователя это незаметно. Не удается скрыть разницу между методом и свойством в том случае, когда требуется передать методу параметры.

Необходимо различать класс, то есть тип объектов и реализацию класса, то есть собственно объект. Описать объект, значит описать класс (тип). Создать объект, значит создать экземпляр заданного типа.

Базовые понятия ООП – инкапсуляция, наследование и полиморфизм.

Инкапсуляция предполагает, что для применения класса объектов достаточно знать его интерфейс (описание внешних свойств и методов), никакие особенности реализации объекта не должны влиять на его использование.

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

Между классами объектов могут быть два отношения: is-a "это есть", is-a-part "это есть часть". Наследование – предполагает, что свойства родительских объектов наследуются дочерними объектами, связанными по отношению "это есть". Это свойство очень важно, так как помогает существенно сократить список свойств, определяющих один объект (экземпляр).

В VBA реализовано отношение "это есть часть", наследования почти нет. Мы употребили странное определение "почти", так как, не смотря на заявление о том, что наследование не поддерживается, реально трудно было без него обойтись, поэтому оно есть, например кнопка (класс CommandButton) наследует свойства элемента управления (класса Сontrol). Объектные модели, представленные в справочнике по VBA – модель объектов согласно иерархии "это есть часть".

Обращение к объектам и свойствам обычное (через точку): имя_объекта.имя_свойства.

Спуск по объектной модели – дорогая (по затрачиваемому времени и занимаемой памяти) операция. Есть способ зафиксировать верхнюю часть объекта с помощью конструкции "With … End With" и тем самым избавиться от спуска, то есть ускорить работу программы. Кроме того, этот способ позволяет увеличить наглядность программного кода.

Пример:

Исходный текст:

UserForm1.Controls(i).width = UserForm1.Controls(i).width+20

UserForm1.Controls(i).height = UserForm1.Controls(i).height+10

Лучше написать так:

With UserForm1.Controls(i)

.width =.width+20

.height = .height+10

end with