a1c3a9fb30
- Impostata versione da note programma in SplashScreen
28 lines
885 B
VB.net
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
|