Initial

EDOKA/_SikRoot/ApplicationEvents.vb

@@ -0,0 +1,31 @@
+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 nicht normal beendet wird.
+    ' UnhandledException: Wird ausgelöst, wenn in der Anwendung eine unbehandelte Ausnahme auftritt.
+    ' StartupNextInstance: Wird beim Starten einer Einzelinstanzanwendung ausgelöst, wenn diese bereits aktiv ist. 
+    ' NetworkAvailabilityChanged: Wird beim Herstellen oder Trennen der Netzwerkverbindung ausgelöst.
+    ''' <summary>
+    ''' Release 4.03 Instanzenhandling
+    ''' </summary>
+    ''' <remarks></remarks>
+    'Partial Friend Class MyApplication
+
+    '    Private Sub MyApplication_StartupNextInstance(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs) Handles Me.StartupNextInstance
+    '        e.BringToForeground = True
+    '        Dim arg As String = ""
+    '        For Each s As String In e.CommandLine
+    '            If arg <> "" Then arg = arg + " "
+    '            arg = arg + s
+    '        Next
+    '        Dim strargs() As String = arg.Split(" ")
+    '        EDOKAMain.HandleCommand(strargs, True)
+    '    End Sub
+    'End Class
+
+
+
+End Namespace
+