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