15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


Как сделать всплеск на экране

'Поместите следующий код в стандартный модуль кода
Public Sub Main()

' begin application with splash screen
frmSplash.Show

End Sub

Public Sub UnloadSplash()

'remove splash and show main form
frmMain.Show
Unload frmSplash

End Sub

'Code for Splash screen is as follows:

'Убираем всплеск, если пользователь нажал клавишу
Private Sub Form_KeyPress(KeyAscii As Integer)

UnloadSplash

End Sub

Private Sub Form_Load()

lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
lblAppTitle.Caption = App.Title

End Sub

'Unload Splash screen when user clicks on it
Private Sub Form1_Click()

UnloadSplash

End Sub

'Устанавливаем таймер, чтобы по истечении определённого времени убрать всплеск.
Private Sub Timer1_Timer()

UnloadSplash

End Sub