На этом шаге мы рассмотрим инструкции условной компиляции.
В VBA имеются две инструкции компилятора, с помощью которых можно обеспечить условную компиляцию некоторых фрагментов исходного кода. Для условной компиляции необходимо определить условные константы компилятора, значениями которых будет руководствоваться компилятор при обработке программы. Константы должны быть определены в разделе глобальных объявлений модуля.
Синтаксис:
#Const имяКонстанты = выражение
Аргументы:
- имяКонстанты - имя константы; должно соответствовать стандартным соглашениям об именах переменных.
- выражение - константа в явном представлении, другая условная константа компилятора или любая их комбинация, которая включает любые арифметические или логические операторы, за исключением Is.
Чтобы указать компилятору, какие фрагменты кода компилировать при разных условиях, используется инструкция #If. Оператор If является объектом компилирования в отличие от инструкции #If, которая является служебной пометкой в тексте, принимаемой компилятором к сведению.
Синтаксис:
#If выражение Then инструкции [#ElseIf выражение-n Then [инструкции_elseif]] [#Еlse [инструкции_elseif ]], #End If
В приведенном ниже примере инструкции условной компиляции используются для того, чтобы в вариантах исполняемого файла в качестве имени файла заставки в строковую переменную загружать имена двух различных файлов.
#Const WinPl = 1 ' если Windows95, то Const WinPl = 1 ' если Windows NT, то Const WinPl = 2 #If WinPl = 1 Then ФайлЗаставка = Start95.bmp" #If WinPl = 2 Then ФайлЗаставка = "StartNT.bmp"
Со следующего шага мы начнем рассматривать процедуры.
