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