Не получается отобразить заставку при запуске приложения, делаю, как написано в справочнике:
Первая загружаемая процедура - Main() (в Project Properties на вкладке General)

Код

'Модуль: Option Explicit Private Sub Main() ' показать заставку frmSplash.Show Startup ' задача, на выполнение которой требуется значительное время ' показать форму Main и выгрузить заставку frmMain.Show ' форма приложения unload frmSplash End Sub Private Sub Startup() ' ...     End Sub

Это сообщение отредактировал(а) Voldemar2004 - 15.9.2005, 12:30

а чего не получается-то? телепаты все еще в отпуске, а отсюда твоего экрана не видать...

Мне качется, тебе DoEvents не хватает

Код

Option Explicit Private Sub Main() ' показать заставку frmSplash.Show DoEvents Startup ' задача, на выполнение которой требуется значительное время ' показать форму Main и выгрузить заставку frmMain.Show ' форма приложения unload frmSplash End Sub Private Sub Startup() ' ...     End Sub

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

Все, спасибо! Тема закрыта.