Для запуска и работы большой прикладной системы требуется много времени. Это время будет зависеть от количества требуемых инициализаций и скорости системы пользователя. Поэтому перед отображением главного окна должно отображаться окно инициализации. приложение выглядит более привлекательным, поскольку некоторая информация может постоянно отображаться пользователю при загрузке программы и создавать красивые визуальные эффекты. Например, и VB, и Delphi при запуске отображают окно-заставку перед основным интерфейсом.
----1. Ниже приведен простой способ отображения заставки на экране (слогана):
optionexplicit
PRivatesubform_load()
'Показать главное окно
мне.показать
'Показать окно-заставку
frmsplash.show
делать события
'Выполняем инициализацию приложения
инициализировать
'Закрыть окно-заставку
выгрузить спалш
конец суб
----Этот код процедуры следует поместить в форму запуска приложения. Первый метод show позволяет Windows отображать основную форму на экране, а следующий метод show отображает мигающий экран, который представляет собой созданную вами форму с именем frmsplash. После использования метода show используйте функцию Doevents, чтобы обеспечить мигание всех элементов. экранная форма рисуется немедленно. Функция Initialize выполняет трудоемкие задачи, которые необходимо выполнить при запуске приложения, например загрузку данных из файлов, загрузку форм в память и так далее. На этом этапе все готово.
----2. Мигающий шаблон формы.
----VisualBasic содержит множество шаблонных форм, одна из которых — флэш-экран. Чтобы добавить форму Splashscreen в проект, выберите AddForm в меню проекта. Выберите значок SplashScreen на вкладке «Создать» диалогового окна AddForm и нажмите «Открыть». Форма SplashScreen будет добавлена в проект.
----В следующем коде показан пример настройки шаблона формы SplashScreen:
optionexplicit
Privatesubform_load()
frmsplash.lbllicenseto=app.legaltrademarks
frmsplash.lblcompanyproduct=app.имяпродукта
frmsplash.lblplatform="window98"
frmsplash.lblcopyright=app.legalcopyright
frmsplash.lblcompany=app.имякомпании
frmsplash.lblwarning="Внимание: эта программа защищена"&_
"по закону об авторском праве, поэтому не копируйте"
frmsplash.show
делать события
инициализировать
выгрузить frmsplash
конец суб
----Обратите внимание, что здесь используется объект приложения, который может получить доступ к информации о вашем приложении;
----Код модуля кода шаблона формы-заставки выглядит следующим образом:
PrivateSubForm_keypress (keyasciiasinteger)
разгрузи меня
Конец-саб
Privatesubform_load()
lblversion.caption="версия"&app.major&".
"app.minor"."app.revision
lblproductname.caption=app.title
конец суб
Privatesubframe1_click()
разгрузи меня
EndSub->