11.4. Установка параметров проекта

Проект оформляется с помощью установки его параметров. Для этого используется окно диалога Project Properties, вызываемое командой Project Properties меню Project или одноименный пункт контекстного меню. Установленные параметры (см. табл.) сохраняются в файле проекта. Можно установить множество других параметров проекта, включая опции компиляции, параметры для компонентов и для организации потоков (Multithreading).

Параметр	Описание
Startup Object	Первая форма, отображаемая во время выполнения или процедура Sub Main ().
Project Name	Идентифицирует код проекта при помощи некого имени. Имя не может содержать точек, скобок, пробелов и должно начинаться с буквы. Длина имени не более 37 символов.
Help File	Имя файла Справки (Help), связанного с данным проектом.
Project Help Context ID	Контекстный ID, задаваемый для того, чтобы вызывалась определенная тема Справки, когда пользователь нажимает кнопку ? при работе с библиотекой объектов приложения.
Project Description	Удобное для пользователя имя проекта отображается в диалоговых окнах References (Ссылки) и Object Browser (Просмотр объектов).

11.5. Дополнения и мастера

Система VB позволяет выбирать и управлять дополнительными модулями (Add-ins), которые расширяют возможности создания проектов. Мастера (Wizards) – это дополнения, облегчающие выполнение некоторых задач, например, задачи создания формы.

Добавить или удалить дополнение в проект можно с помощью Add-In Manager (Диспетчера дополнений), который вызывается из меню Add-Ins (Дополнения). В диалоговом окне Add-In Manager перечисляются все доступные модули из группы Load Behavior (Загрузить функции), которые выбираются с помощью флажков. В зависимости от сделанного выбора подсоединятся выбранные модули или отключатся те, флажки которых сброшены.

Мастера облегчают работу, предоставляя помощь при выполнении определенной задачи. Например, Application Wizard (Мастер приложения), помогает создать структуру приложения с помощью серии вопросов и возможных ответов. Он создает формы и код для них в соответствии с ответами пользователя. После этого разработчик добавляет свой код. Некоторые издания VB предоставляют и другие мастера, включая Data Form Wizard (Мастер формы данных) для создания форм, работающих с базами данных, и ActiveX Document Wizard (Мастер документа ActiveX) для преобразования форм VB в формы Интернет. Мастера устанавливаются и удаляются с помощью Add-In Manager. Однажды установленные, они появляются в виде дополнительных пунктов меню Add-Ins (Дополнения). Для вызова некоторых мастеров в соответствующих окнах диалога также создаются значки, например, Application Wizard (Мастер приложения) можно вызвать с помощью его значка в диалоговом окне New Project (Новый проект).

Тема 12 Управляющие конструкции

12.1. Конструкции принятия решения (ветвление)

Используются три конструкции принятия решения: If…Then, If…Then…Else, Select Case.

Конструкция 1	Конструкция 2
If Дата < Now Then Дата = Now, где Now - системная дата	If anyDate < Now Then anyDate = Now End If

К

If <условие> Then

<блок операторов>

End If

If <условие> Then <один оператор>

If anyDate < Now Then

anyDate = Now

Timer1.Enabled = False ' Запретить таймер.

End If

онструкция If…Then. Применяется, когда необходимо выполнить один или группу операторов в зависимости от некоторого условия. Синтаксис конструкции позволяет задать ее в одной строке или нескольких строках программы (блоковая конструкция). Обычно условие является логической величиной, но оно может быть любым выражением с числовым значением. Значение интерпретируется как True (Истина) или False (Ложь) в соответствии со следующим правилом: нулевое значение – False (Ложь), любое ненулевое значение – True (Истина). Если условие истинно, выполняются все операторы, стоящие после ключевого слова Then. Следующие две конструкции эквивалентны. Синтаксис конструкции if…Then для одной строки не требует оператор End if. Чтобы выполнить последовательность операторов следует использовать блоковую конструкцию if…Then…End if.

К

If <условие 1> Then

[<блок операторов 1>]

[ElseIf < условие 2> Then

[блок операторов 2]] ...

[Else

[<блок операторов n>]]

End If

онструкция lf…Then…Else. Определяет несколько блоков операторов, один из которых будет выполняться в зависимости от условия. Сначала проверяет первое условие 1. Если оно ложно, то проверяет следующее условие 2 и т. д., пока не найдется истинное условие. Для него выполняется соответствующий блок операторов, а затем управление передается инструкции, следующей за оператором End if. В данную конструкцию можно включить блок оператора Else, который выполняется, если не выполнено ни одно из условий.

К

Private Sub mnuCut_Click (Index As Integer)

If Index = 0 Then 'Команда Cut

CopyActiveControl 'Вызовы общих процедур

ClearActiveControl Elself Index = 1 Then 'Команда Copy

CopyActiveControl

ElseIf Index = 2 Then 'Команда Clear

ClearActiveControl

Else 'Команда Paste

PasteActiveControl

End If

End Sub

онструкция If...Then...ElseIf (ElseIf пишется слитно, а End if – раздельно) в действительности всего лишь специальный случай конструкции If...Then...Else. В данной конструкции может быть любое число блоков ElseIf, или ни одного. Блок Else можно включать независимо от присутствия или, наоборот, отсутствия блоков ElseIf. Например, приложение может выполнять разные действия в зависимости от того, на каком элементе управления из массива меню элементов выполнен щелчок. В конструкцию If... Then можно добавлять любое число блоков ElseIf. Однако при большом числе этих блоков конструкция становится громоздкой и неудобной. В этом случае, если условие содержит одно и то же проверяемое выражение, применяют другую конструкцию – Select Case.

К

Select Case <проверяемое выражение>

[Case <список значений 1>

[<1-ый блок операторов>]]

[Case < список значений 2>

[<2-ой блок операторов >]]

...

[Case Else

[<n-ый блок операторов >]]

End Select

онструкция Select Case. Конструкция является альтернативой конструкции If…Then…Else когда выполняется блок из большого набора операторов. Она предоставляет возможности, аналогичные возможности if…Then…Else, но в отличие от нее делает код удобочитаемым.

Конструкция Select Case работает с единственным проверяемым выражением, которое вычисляется один раз при входе в конструкцию. Результат вычисления сравнивается со значениями, задаваемыми списками других выражений в операторах Case. Если найдено совпадение, выполняется блок операторов, непосредственно следующих за оператором case, в котором это совпадение найдено. В каждом из списков значений может быть одно или более значений. Выражения в списке отделяются друг от друга запятыми. Список можно задавать также интервалом значений в виде: <начало интервала> to <конец интервала>. Если вычисленному значению проверяемого выражения соответствуют значения из нескольких операторов Case, то выполняется блок операторов, ассоциированный с первым оператором Case из всех найденных соответствий. Блок операторов, ассоциированный с необязательным оператором Case Else, выполняется если не найдено ни одного соо

Private Sub mnuCut_Click (Index As Integer)

Select Case Index

Case 0 'Команда Cut.

CopyActiveControl 'Вызовы общих процедур.

ClearActiveControl

Case 1 'Команда Copy.

CopyActiveControl

Case 2 'Команда Clear.

ClearActiveControl

Case 3 'Команда Paste.

PasteActiveControl

Case Else

frmFind.Show 'Показать диалоговое окно Find.

End Select

End Sub

тветствия проверяемого значения выражения и значений из всех списков операторов Case. Рассмотрим использование структуры Select Case на ранее приведенном примере. Предположим, что в меню добавлена команда Edit (Правка). Можно добавить оператор ElseIf, но лучше использовать конструкцию Select Case. Конструкция Select Case вычисляет выражение только один раз при входе в нее, а конструкция If …Then … Else вычисляют различные выражения для каждого оператора ElseIf. Таким образом, конструкцию If …Then … Else можно заменить конструкцией Select Case, только если оператор if и каждый оператор ElseIf при проверке условия выбора вычисляют одно и то же выражение.