Files
icarus/Icarus/Application.xaml.vb
Emmanuele Sassi a1c3a9fb30 - Gestita apertura diretta del progetto da file senza SplashScreen
- Impostata versione da note programma in SplashScreen
2022-10-27 11:14:51 +02:00

28 lines
885 B
VB.net

Class Application
' Application-level events, such as Startup, Exit, and DispatcherUnhandledException
' can be handled in this file.
Protected Overrides Sub OnStartup(e As StartupEventArgs)
MyBase.OnStartup(e)
ShutdownMode = System.Windows.ShutdownMode.OnMainWindowClose
If e.Args.Count = 0 Then
' creo finestra SplashScreen
Dim SplashScreen As New SplashScreen
Me.MainWindow = SplashScreen
Me.MainWindow.Show()
Map.SetRefSplashScreen(SplashScreen)
End If
' Creo la View principale
Me.MainWindow = New MainWindowV
' Mostro la View principale
Me.MainWindow.Show()
' inizializzo finestra interfaccia
Dim m_SceneHostWnd = New SecondaryWindowV(Application.Current.MainWindow)
m_SceneHostWnd.Owner = Me.MainWindow
m_SceneHostWnd.Show()
End Sub
End Class