Аргументы командной строки

Это поле содержит аргументы командной строки, по которым приложение выполняет особые функции. Например, в командных строках некоторых программ после имени программы указывается имя файла, автоматически загружаемого при запуске. Ввод текста в поле Command Line Arguments имитирует ввод имени программы с именем файла в диалоговом окне Run, вызываемом из меню Start². Например:

МуАрр.Ехе C:\Files\MyDoc.DOC

Любые параметры, передаваемые приложению, можно получить с помощью зарезервированной переменной Command$. Все, что вводится в командной строке после имени программы, сохраняется в этой переменной. Для анализа введенных параметров используются функции InStr() и Mid$(). Например:

Private Sub Form_Load()

If Commands <> "" Then

If InStr(Command$, "/?") > 0 Then

ShowHelp

End If

End Sub

Переменная Command$ является служебной переменной Visual Basic. Она используется только для получения параметров, передаваемых приложению при запуске. Вы можете получить их значения, обратившись к Commands в процедуре события Load стартовой формы приложения.

В приведенном выше примере мы сначала проверяем, передавались ли программе какие-либо параметры. Если не передавались, команда If..Then пропускается, а программа продолжает работать в обычном порядке. Если же параметры передавались, программа уточняет их содержание.

В приведенном выше примере проверяется только параметр /?, знакомый каждому, кто хоть раз пытался получить справку по командам DOS. С помощью нескольких операторов If...Then можно проверить любые другие параметры, воспринимаемые вашим приложением.

Функция InStг() ищет в заданной строке некоторую подстроку. Если поиск окажется успешным, функция InStr() возвращает номер первой позиции строки, в которой найдена подстрока. Следовательно, если приложению был передан параметр /?, функция InStr() возвратит положительное значение. Как видно из приведенного выше примера, в этом случае условие конструкции If...Then удовлетворяется и программа вызывает процедуру ShowHelp.

Параметр, введенный в поле Command Line Arguments, передается приложению при запуске. Благодаря этому вы сможете протестировать программу, не выполняя полного построения.

² Пуск в локализованной версии Windows 95. — Примеч. перев.

Условная компиляция

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

Private Sub Form_Load() Dim platform As String

#lf WIN_NT Then

platform = "Windows NT"

#Else

platform = "Windows 95/98"

#End If

MsgBox platform

End Sub

Если вы захотите построить выполняемый файл для Windows NT, введите в поле Conditional Compilation Arguments строку

WIN_NT=1

Если же вам потребуется версия для Windows 95 или Windows 98, следует ввести строку

WIN_NT=0

Того же результата можно добиться с помощью включения в компилируемый модуль директив #Const. Например, соответствующая команда может выглядеть так:

#Const WIN_NT = 1

Возможно, вы заметили, что перед каждой командой указывается префикс — знак фунта (#). Он определяет начало так называемых директив препроцессора. Директивы препроцессора обрабатываются во время компиляции, а не во время выполнения программы. Visual Basic поддерживает директивы #Const и директивы условной компиляции #If...#Then...#Else...#End If. Директива #Const определяет препроцессорную константу, а директива #If...#Then...#Else...#End If проверяет значение этой константы.

Вкладка Compile

На вкладке Compile находятся параметры, относящиеся к процессу компиляции приложения (рис. 14.2). Вы можете откомпилировать его и преобразовать либо в так называемый Р-код, либо непосредственно в машинный код.