Шаг 14 - Инструкция Dim

Шаг 13 - Инструкция DeleteSetting

End Function

Function ATestFunction(INumber)

DefStr L-Z

CalcVar = 4 ' Инициализирует переменную типа Integer.

StringVar = "Всем привет" ' Инициализирует переменную типа String.

AnyVar = "Привет" ' Будет обнаружено несовпадение типов.

Dim Calc As Double ' Явно объявлена переменная типа Double.

Calc = 2.3455 ' Присваивает значение переменной типа Double.

' Инструкции Defтип также применимы к функциям.

CalcNum = ATestFunction(4) ' Вызывает процедуру Function, определенную пользователем.

' Описание процедуры Function ATestFunction.

ATestFunction = INumber * 2 ' Возвращает значение типа Integer.

Удаляет раздел или запись из раздела приложения в реестре Windows.

DeleteSetting appname, section[, key]

Параметры: appname: Обязательный. Строковое выражение, содержащее имя приложения или проекта, к которому относится раздел или запись.
Section: Обязательный. Строковое выражение, содержащее имя раздела, в котором удаляется запись. Если определены только аргументы appname и section, указанный раздел удаляется полностью со всеми записями.
Key: Необязательный. Строковое выражение, содержащее имя удаляемой записи.

Замечания
Если определены все аргументы, удаляется только указанная запись. Если указанный раздел или запись не существует, инструкция DeleteSetting не имеет последствий.

Пример
В данном примере сначала с помощью инструкции SaveSetting заполняются элементы реестра Windows (или файла .INI на 16-разрядных платформах Windows) для приложения MyApp, а затем инструкция DeleteSetting вызывается для их удаления. Поскольку аргумент key не определен, удаляется весь раздел, в том числе имя раздела и все содержащиеся в нем записи.

' Заполнение реестра.

SaveSetting appname:= "MyApp", section:= "Startup", _

key:= "Top", setting:= 75

SaveSetting "MyApp","Startup", "Left", 50

' Удаление из реестра раздела со всем содержимым.

DeleteSetting "MyApp", "Startup "

Описывает переменные и выделяет для них память.

Dim [WithEvents] имяПеременной[([индексы])] [As [New] тип] [, [WithEvents] имяПеременной[([индексы])] [As [New] тип]]...

Параметры: WithEvents: Необязательный. Ключевое слово, указывающее, что имяПеременной является объектной переменной, которая используется при отклике на события, генерируемые объектом ActiveX. Применяется только в модулях класса. Пользователь имеет возможность описать с помощью ключевого слова WithEvents произвольное количество отдельных переменных, однако при этом не допускается создание массивов. Не допускается также использование ключевого слова New с ключевым словом WithEvents.
ИмяПеременной: Обязательный. Имя переменной, удовлетворяющее стандартным правилам именования переменных.
индексы: Необязательный. Размерности переменной массива; допускается описание до 60 размерностей. Для задания аргумента индексы используется следующий синтаксис:

[нижний To] верхний [, [нижний To] верхний]...

Если нижний индекс не задан явно, нижняя граница массива определяется инструкцией Option Base. Если отсутствует инструкция Option Base, нижняя граница массива равняется нулю.

New: Необязательный. Ключевое слово, включающее возможность неявного создания объекта. Если указано ключевого слова New при описании объектной переменной, новый экземпляр объекта создается при первой ссылке на объект, поэтому нет необходимости присваивать ссылку на объект с помощью инструкции Set. Ключевое слово New нельзя использовать для описания переменных любых внутренних типов данных, для описания экземпляров зависимых объектов, а также вместе с ключевым словом WithEvents.

тип
Необязательный. Тип данных переменной; поддерживаются типы Byte, Boolean, Integer, Long, Currency, Single, Double, Decimal (в настоящее время не поддерживается), Date, String (для строк переменной длины), String* длина (для строк фиксированной длины), Object, Variant, определяемый пользователем тип или объектный тип. Для каждой описываемой переменной следует использовать отдельное предложение As тип.

Замечания Переменные, описанные с помощью ключевого слова Dim на уровне модуля, доступны для всех процедур в данном модуле. Переменные, описанные на уровне процедуры, доступны только в данной процедуре.
Инструкция Dim предназначена для описания типа данных переменной на уровне модуля или процедуры. Например, следующая инструкция описывает переменную с типом Integer.

Dim NumberOfEmployees As Integer

Инструкция Dim предназначена также для описания объектного типа переменных. Далее приводится описание переменной для нового образца листа электронной таблицы.

Dim X As New Worksheet

Если при описании объектной переменной не используется ключевое слово New, то для использования объекта, на который ссылается переменная, существующий объект должен быть с помощью инструкции Set присвоен переменной. До присвоения объекта описанная объектная переменная имеет специальное значение Nothing, которое указывает, что она не содержит ссылку на какой-либо определенный экземпляр объекта.
Имеется также возможность применять инструкцию Dim с пустыми скобками для описания динамического массива. После описания динамического массива, воспользуйтесь инструкцией ReDim в процедуре для определения числа размерностей и элементов массива. При попытке переопределить размерности переменной-массива, чей размер был явно указан в инструкции Private, Public или Dim, возникает ошибка.
Если тип данных или тип объекта не задан, и в модуле отсутствует инструкция DefТип, по умолчанию переменная получает тип Variant.
При инициализации переменных числовая переменная получает значение 0, строка переменной длины получает значение пустой строки (""), а строка фиксированной длины заполняется нулями. Переменные типа Variant получают при инициализации значение Empty. Каждый элемент переменной определяемого пользователем типа при инициализации получает значение, которые он получил бы, если бы являлся отдельной переменной.
При использовании инструкции Dim в процедуре ее обычно помещают в начало процедуры.

Пример
В данном примере инструкция Dim используется для объявления переменных и массивов. По умолчанию нижняя граница индексов массива равняется 0; для ее изменения следует использовать инструкцию Option Base на уровне модуля.

' По умолчанию AnyValue и MyValue являются переменными типа Variant

' и имеют пустые значения.

Дата добавления: 2015-06-27