23 lines
1.3 KiB
VB.net
23 lines
1.3 KiB
VB.net
Imports Microsoft.VisualBasic.ApplicationServices
|
|
|
|
Namespace My
|
|
' Für MyApplication sind folgende Ereignisse verfügbar:
|
|
' Startup: Wird beim Starten der Anwendung noch vor dem Erstellen des Startformulars ausgelöst.
|
|
' Shutdown: Wird nach dem Schließen aller Anwendungsformulare ausgelöst. Dieses Ereignis wird nicht ausgelöst, wenn die Anwendung mit einem Fehler beendet wird.
|
|
' UnhandledException: Wird bei einem Ausnahmefehler ausgelöst.
|
|
' StartupNextInstance: Wird beim Starten einer Einzelinstanzanwendung ausgelöst, wenn die Anwendung bereits aktiv ist.
|
|
' NetworkAvailabilityChanged: Wird beim Herstellen oder Trennen der Netzwerkverbindung ausgelöst.
|
|
Partial Friend Class MyApplication
|
|
'Protected Overrides Function OnStartup(eventArgs As StartupEventArgs) As Boolean
|
|
' Dim requiredParam As String = "-internal"
|
|
|
|
' If eventArgs.CommandLine.Count = 1 AndAlso eventArgs.CommandLine.Item(0) = requiredParam Then
|
|
' Return MyBase.OnStartup(eventArgs)
|
|
' Else
|
|
' MsgBox("Diese Anwendung kann nicht manuell gestartet werden und wird nun beendet.", MsgBoxStyle.Exclamation, "User Manager")
|
|
' Return Nothing
|
|
' End If
|
|
'End Function
|
|
End Class
|
|
End Namespace
|