Шаг 131 - Делаем заставку приложения

Использование функции Main позволяет сделать заставку приложения. Загрузка формы может продолжаться довольно долго, это связанно может быть с установкой соединения с сервером например. В этот момент на экране лучше держать форму которая покажет пользователю что приложение грузиться. Создаем еще одну формы. Давайте выберем готовую настроенную, чтобы не лазить по настройкам.

gif/131_1.gif (4319 b)

Она добавить в проект. Теперь в момент запуска нужно показать заставку, а в этот момент пусть себе основная форма спокойно грузится.

Public Sub Main()
	frmSplash.Show
	frmSplash.Refresh
	Load Form1
	Unload frmSplash
	Form1.Show
End Sub

В самом конце удаляем заставку и показываем форму. В загрузку формы лучше включить цикл для того, что бы увидеть заставку.

Private Sub Form_Load()
For x = 1 To 10000000
Next x
End Sub

Еще нагляднее добавить индикатор.

gif/131_2.gif (6886 b)

И изменять его по ходу загрузки.

Private Sub Form_Load()
For x = 1 To 10000
frmSplash.ProgressBar1.Value = x
Next x
End Sub

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем - 29.04.2002