Demetrio Cassarino
70 lines
2.6 KiB
VB.net
70 lines
2.6 KiB
VB.net
|
|
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
|
|
If e.CommandLine(0) = "0" Then
|
|
ModalitaNascosta = True
|
|
Else
|
|
'
|
|
End If
|
|
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
|
|
|