32 lines
1.4 KiB
VB.net
32 lines
1.4 KiB
VB.net
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
|
|
|