boevik, спасибо. Вот собственно и все.
| Цитата(Akina @ 15.9.2005, 12:42) | | а чего не получается-то? телепаты все еще в отпуске, а отсюда твоего экрана не видать... |
Ну я же вроде написал:| Цитата(Voldemar2004 @ 15.9.2005, 12:28) | | Не получается отобразить заставку при запуске приложения |
Была такая проблема: программа грузится (вернее заставка перед запуском основной формы), пользователь видит заставочку типа: "ждите [число секунд] пока завершится процесс", а в это время основной модуль выполняет собственное задание. А то потом по офису бегать замучаюсь и объяснять, что программа не висит, а работает, а так все понятно. При обычной загрузке приложения создается впечатление, что оно зависло (а на самом деле это не так). Ведь во всех(!) играх используется такой метод.
| Код |
Option Explicit
Private Sub Main()
' показать заставку
frmSplash.Show
DoEvents
Startup ' задача, на выполнение которой требуется значительное время
' выгрузить заставку и показать форму Main
unload frmSplash
frmMain.Show ' форма приложения
End Sub
Private Sub Startup()
' ...
End Sub
|
Все, спасибо! Тема закрыта.  |