End Sub

4. Диалоговое окно (рис. 44) – это модальное окно, которое не позволяет переключаться на родительское (исходное) окно, прежде чем будет завершена работа с модальным. Для обеспечения этого свойства необходимо форме этого окна задать свойство Border Style = 3 – Fixed Dialog. Кроме того, в тексте программы должны быть строки, которые обеспечивают состояние недоступности родительского окна перед выводом диалогового окна на экран (свойство Enabled формы).После закрытия диалогового окна нужно восстановить доступность родительского окна и установить на нем «фокус». Для того, чтобы любое не главное окно, в т.ч. и диалоговое, появилось на экране при работе программы, необходимо в нужном месте программного кода предусмотреть строку с оператором загрузки формы и методом показа ее, т.к. при запуске программы автоматически появляется только главное окно программы. Синтаксисы оператора загрузки и метода показа формы следующие:

· Оператор загрузки: LOAD Name _формы

· Метод показа: Name _формы .Show

Оператор LOAD только загружает форму из файла в память, но не показывает на экране. Метод Show предназначен для показа уже загруженной формы на экране, если форма еще не загружена, то он также может и загрузить ее. Если какое-либо окно при работе с программой используется часто, то целесообразно в начале программы загрузить его оператором LOAD, а затем в нужный момент показывать на экране методом Show.

По окончании работы с диалоговым окном его необходимо скрыть и выгрузить. Оператор и метод, обеспечивающие выгрузку и скрытие формы имеют синтаксисы:

· Оператор выгрузки: UNLOAD Name _формы

· Метод скрытия: Name _формы .Hide

Обычно диалоговые окна вызываются командами меню, поэтому оператор LOAD и метод Show должны находиться в соответствующей процедуре выпадающего меню. Так как принято все позиции одного выпадающего меню именовать одинаковым Name, то в проекте Visual Basic 6.0 создается одна процедура с оператором Select case Index, который передает в эту процедуру значение свойства Index выбраннойпозиции меню.

Придав однажды диалоговому окну свойство модальности, нужно добавить аналогичную строку, которая возвращает доступность главной формы. В каждый момент времени какая-либо форма или объект в ней является активной, это означает, что – она «в фокусе»!По умолчанию, при вызове формы на экран в фокус попадает ее первый управляющий элемент. В некоторых случаях бывает нужно предусмотреть в тексте программы установку фокуса на какой-либо форме или объекте в ней, чтобы он был виден на экране. Для этого предназначен следующий метод:

Name _{объекта}. SetFocus

5. Нажать кнопку добавить форму (Add Form) на панели инструментов или выбрать команду Add Form из меню Project. В проекте появится еще одна форма. Эта форма – будущее диалоговое окно, содержащее сведения о программе. (См. рис. 44) Если форма добавлена в проект ошибочно, то для ее удаления нужно вызвать на ее значке в окне проводника проекта контекстное меню и выбрать команду Remove Form. При выборе этой команды появляется запрос на сохранение удаляемой формы в отдельном файле, на который необходимо ответить.

Рисунок в форму может быть вставлен объектами Image и PictureBox, которые находятся в наборе инструментов General. Эти объекты «показывают» рисунки, если их свойству Picture присвоено как значение имя файла рисунка.

Установить в форме объект Image, присвоить свойству Picture этого объекта имя файла, содержащего рисунок (файл с рисунком должен быть предварительно создан с помощью какого-либо графического пакета и сохранен на диске или дискете; либо можно использовать любой имеющийся готовый файл рисунка).Следует иметь в виду, что объект Image не может «сжать» или «растянуть» большой или маленький по размерам рисунок до своих размеров, поэтому рекомендуется использовать рисунки, соизмеримые с размерами объекта Image и формы. В противном случае следует установить значение свойства Stretch объекта Image равным True – в этом случае «растяжение» или «сжатие» рисунков будет возможно.

Установить также в форме метку и командную кнопку ОК. Установить необходимые значения свойств этих объектов. Задать для формы свойство Name – oprog. Установить для этой формы значения свойств Minbutton– False и Maxbutton – False. Записать для кнопки ОК следующий программный код: