Priavte Sub Form1_QueryUnload (Cancel as Integer, UnloadMode as Integer)

Private Sub Form_QueryUnload (Cancel as Integer, UnloadMode as Integer)

Закрытие приложения

Активизация формы

Проекты с несколькими формами

Чтобы добавить новую форму к приложению, нужно выбрать пункт Add Form в меню Proect. Все формы приводятся в окне Project Explorer. С его помощью можно активизировать форму, или же использовать меню View| Object. С помощью свойства Name формы можно ссылаться на другие свойства формы, или вызывать различные методы. По умолчанию для 1-й формы используется имя Form1, далее Form2…. С помощью имени формы можно обратиться к любому ее элементу, используя следующий синтаксис:

имя формы. имя ЭУ. свойство = значение.

Например: frmHelp.cmdQuit. Enabled = FALSE

При загрузке приложения Visual Basic выводит на экран только одну форму, которая называется начальной. Все остальные необходимо загружать и выводить на экран программным путем. Начальной обычно является первая форма проекта. Для того чтобы сделать другую форму начальной, необходимо в окне Project | Project Properties выбрать закладку General и далее в списке Startup Object выбрать новую форму.

Для того чтобы сделать форму активной (пользователь щелкает мышью на форме), в программе используются методы Show и SetFocus или применяется событие Activate. Событие Activate/Deactivate происходит, если пользователь перемещает фокус в рамках текущего приложения. При переключении на другую программу эти события не выполняются.

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

а) не позволять пользователю закрывать последнюю видимую форму;

б) завершить работу проекта при закрытии последней видимой формы.

Процедура QueryUnload выполняется перед удалением формы из памяти. Ее синтаксис:

...

End Sub

В случае а) следует задать значение TRUE аргументу Cancel; в случае б) вставить строку Unload Me перед оператором End.

Пример приложения с 2-мя формами.

В каждой форме содержится по одной командной кнопке. Командная кнопка 1-й формы будет активизировать вторую форму, и сдвигать ее влево. Командная кнопка 2-й формы будет переводить фокус на 1-ю форму без изменения ее местоположения. Пользователь не сможет закрыть вторую форму, а при закрытии 1-й формы работа программы будет завершаться:

Дата добавления: 2014-12-10