egtbeamwall/EgtBEAMWALL.Optimizer/Application.xaml.vb

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 SplashScreenV
         Me.MainWindow = SplashScreen
         Me.MainWindow.Show()
         MapV.SetRefSplashScreenV(SplashScreen)
      End If
      ' Creo la View principale
      Me.MainWindow = New MainWindowV
      ' Mostro la View principale
      Me.MainWindow.Show()
   End Sub

End Class