Files
icarus/Icarus/Application.xaml.vb
T
2022-10-18 17:26:38 +02:00

26 lines
826 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
' creo finestra SplashScreen
Dim SplashScreen As New SplashScreen
Me.MainWindow = SplashScreen
Me.MainWindow.Show()
Map.SetRefSplashScreen(SplashScreen)
' 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