Dario Sassi
0ebb17b14a
- aggiunta gestione log (aggiunte dipendenze da EgtBasisX64.dll e EgtDotNetBasis.dll) - aggiunta gestione comando '8' (preavviso di chiusura con Kill).
31 lines
1.3 KiB
VB.net
31 lines
1.3 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
|
|
' 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'indice della tavola come indice di processo
|
|
If e.CommandLine.Count > 1 Then MainModule.IndexProc = e.CommandLine(1)
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
End Namespace
|
|
|