Поиск на сайте
Главная Журнал Форум Wiki DRKB Страны мира


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

'Поместите следующий код в стандартный модуль кода
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

 

 


Основные разделы сайта


 

Реклама