Namespace My

   ' The following events are available for MyApplication:
   ' 
   ' Startup: Raised when the application starts, before the startup form is created.
   ' Shutdown: Raised after all application forms are closed.  This event is not raised if the application terminates abnormally.
   ' UnhandledException: Raised if the application encounters an unhandled exception.
   ' StartupNextInstance: Raised when launching a single-instance application and the application is already active. 
   ' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
   Partial Friend Class MyApplication


      Private Sub MyApplication_Startup(sender As Object, e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
         If e.CommandLine.Count > 0 Then
            ' Args: "0 #n" -> 0: avvio in modalità nascosta, #n: indice tavola
            If e.CommandLine(0) = "0" Then
               ModalitaNascosta = True
            Else
               ' avviare il programma in modalità standard
            End If
            ' Salvo l'inidice della tavola come indice di processo
            If e.CommandLine.Count > 1 Then MainModule.IndexProc = e.CommandLine(1)
         End If
      End Sub

      ' METODO NON IN USO: DA RIMUOVERE (il processo è avviato una volta sola)
      Private Sub MyApplication_StartupNextInstance(sender As Object, e As Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs) Handles Me.StartupNextInstance

         If e.CommandLine.Count > 1 Then
            MainModule.SpessLastra = Val(e.CommandLine(1))
         End If
         If e.CommandLine.Count > 2 Then
            MainModule.SogliaPercentuale = Val(e.CommandLine(2))
         End If

         If e.CommandLine.Count > 3 Then
            FrmMain.SetSearchMode(CInt(Val(e.CommandLine(3))))
         Else

         End If

         If e.CommandLine.Count > 0 Then
            If e.CommandLine(0) = "0" Then
               ModalitaNascosta = True
               FrmMain.Hide()
            ElseIf e.CommandLine(0) = "1" Then
               ModalitaNascosta = False
               FrmMain.Visible = True
            ElseIf e.CommandLine(0) = "2" Then
               CorrezioneAutomatica = True
               RichiestaBordi = False
               FrmMain.RichiestaClick()
            ElseIf e.CommandLine(0) = "3" Then
               FrmMain.RichiestaStatoCamera()
            ElseIf e.CommandLine(0) = "4" Then
               FrmMain.ScattoBackGround()
            ElseIf e.CommandLine(0) = "5" Then
               RichiestaBordi = True
               FrmMain.RichiestaClick()
            ElseIf e.CommandLine(0) = "6" Then
               FrmMain.RipetiThreshold()
            End If
         End If

      End Sub
   End Class


End Namespace