Anwendung zum Standardprogramm für Dateitypen Öffnen StartupNextInstance

  • .NET (FX) 4.5–4.8
  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Anwendung zum Standardprogramm für Dateitypen Öffnen StartupNextInstance

    Hallo
    ich komme aktuelle nicht weiter. Und zwar ich mochte wen meine Anwendung in Einzelinstanz Offen ist die Datei auch Offenen können. Ich habe bereits Code geschrieben. Beim Öffnen der Anwendung Klappt es Ohne Probleme aber nicht bei der Einzelinstanz.

    Vielen Dank im Voraus

    VB.NET-Quellcode

    1. Private Sub MyApplication_Startup(sender As Object, e As ApplicationServices.StartupEventArgs) Handles Me.Startup
    3. For Each d As String In My.Application.CommandLineArgs
    4. Dim FileName As New IO.FileInfo(d)
    5. If FileName.Exists = True Then
    6. Form1.OpenANewFile = d
    7. Form1.OpenANewFilesAndPlay()
    8. End If
    9. Next
    10. End Sub
    12. Private Sub MyApplication_StartupNextInstance(sender As Object, e As ApplicationServices.StartupNextInstanceEventArgs) Handles Me.StartupNextInstance
    14. For Each d As String In My.Application.CommandLineArgs
    15. Dim FileName As New IO.FileInfo(d)
    16. If FileName.Exists = True Then
    17. Form1.OpenANewFile = d
    18. Form1.OpenANewFilesAndPlay()
    19. End If
    20. Next
    21. End Sub


    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    @Marvinware Startup nimmst Du nicht, nur StartupNextInstance.
    Den Start machst Du in Form1_Load().
    Ich nehme mal an, dass Form1 der Name der Klasse, nicht aber der Name der Instanz ist (siehe Dialoge: Instanziierung von Forms und Aufruf von Dialogen)
    Probier dies:

    VB.NET-Quellcode

    1. Partial Friend Class MyApplication
    2. Private Sub MyApplication_StartupNextInstance(sender As Object, e As ApplicationServices.StartupNextInstanceEventArgs) Handles Me.StartupNextInstance
    3. MessageBox.Show("StartupNextInstance")
    4. Dim frm = CType(Me.MainForm, Form1)
    5. Dim ll As New List(Of String)
    6. ll.AddRange(e.CommandLine)
    7. frm.OpenANewFilesAndPlay(ll)
    8. End Sub
    9. End Class

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    3. Dim args = Environment.GetCommandLineArgs.Count
    4. MessageBox.Show(args.ToString, "Load")
    5. End Sub
    7. Friend Sub OpenANewFilesAndPlay(ll As List(Of String))
    8. MessageBox.Show(ll.Count.ToString)
    9. End Sub
    10. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Danke für die Antworten. Das Problem ist das die Software schon Fertig ist und sie neu in C# zu Programmieren zu aufwendig ist. Das Problem ist eben er soll ja keine weiteren Fenster beim Starten Öffnen was er ja auch Tuht. Er kann einfach nicht die geöffnete Datei Bei der Offenen Instanz Ergreifen. Wen zb eine MP3 Datei mit der Software Öffnen Klappt es ja. Und wen die Software auch Offen ist er Ergreift er die Datei beim Starten auch wen ich ne andere Ausführe. Das ding ist eben URL Protokolle und andere Ausführungen klappen ja nur die ergreifen der neuen MP3 Datei wen die Software an ist klappt nicht.

    VB.NET-Quellcode

    1. ​
    3. Namespace My
    5. ' Für MyApplication sind folgende Ereignisse verfügbar:
    6. '
    7. ' Startup: Wird beim Starten der Anwendung noch vor dem Erstellen des Startformulars ausgelöst.
    8. ' Shutdown: Wird nach dem Schließen aller Anwendungsformulare ausgelöst. Dieses Ereignis wird nicht ausgelöst, wenn die Anwendung nicht normal beendet wird.
    9. ' UnhandledException: Wird ausgelöst, wenn in der Anwendung eine unbehandelte Ausnahme auftritt.
    10. ' StartupNextInstance: Wird beim Starten einer Einzelinstanzanwendung ausgelöst, wenn diese bereits aktiv ist.
    11. ' NetworkAvailabilityChanged: Wird beim Herstellen oder Trennen der Netzwerkverbindung ausgelöst.
    12. Partial Friend Class MyApplication
    14. Private Sub MyApplication_Startup(sender As Object, e As ApplicationServices.StartupEventArgs) Handles Me.Startup
    15. Try
    16. For Each d As String In My.Application.CommandLineArgs
    17. Try
    18. Dim FileName As New IO.FileInfo(d)
    19. If FileName.Exists = True Then
    20. Form1.OpenANewFileNotLoadPlaylist = 1
    21. Form1.OpenANewFile = d
    22. Form1.OpenANewFilesAndPlay()
    23. End If
    24. Catch ex As Exception
    26. End Try
    28. Next
    29. Dim IfNoCD As Integer = 0
    30. For Each PlayAudioCDCMD As String In e.CommandLine
    31. If PlayAudioCDCMD = "--started-from-audio-cd" Then
    32. If IfNoCD = 0 Then
    33. SideWindow.MyCDIsOpen = 1
    34. LoadeCDNofication()
    35. SideWindow.CDPlayNofiactionTimer.Enabled = True
    36. End If
    37. SideWindow.CDPlayerButtonsEnlabledTrue()
    38. End If
    39. Next
    41. For Each URLProtokoll As String In e.CommandLine
    42. Dim ProtokollName As String = "mw-djmaster:"
    43. Select Case URLProtokoll
    44. Case ProtokollName
    46. Case ProtokollName & "PlayDock1"
    47. Form1.Play1Start()
    48. Case ProtokollName & "PlayDock2"
    49. Form1.Play2Start()
    51. Case ProtokollName & "PauseDock1"
    52. Form1.PauseDock1()
    53. Case ProtokollName & "PauseDock2"
    54. Form1.PauseDock2()
    56. Case ProtokollName & "StopDock1"
    57. Form1.StopDock1()
    58. Case ProtokollName & "StopDock2"
    59. Form1.StopDock2()
    61. Case ProtokollName & "BackDock1"
    62. Form1.ZuruckEvant1()
    63. Case ProtokollName & "BackDock2"
    64. Form1.ZuruckEvant2()
    66. Case ProtokollName & "ForwadDock1"
    67. Form1.WeiterEvant1()
    68. Case ProtokollName & "ForwadDock2"
    69. Form1.WeiterEvant2()
    70. End Select
    71. Next
    72. Catch ex As Exception
    74. End Try
    75. End Sub
    76. Private Sub MyApplication_StartupNextInstance(sender As Object, e As ApplicationServices.StartupNextInstanceEventArgs) Handles Me.StartupNextInstance
    77. Try
    79. For Each d As String In My.Application.CommandLineArgs
    80. Try
    81. Dim FileName As New IO.FileInfo(d)
    82. If FileName.Exists = True Then
    83. Form1.OpenANewFile = d
    84. Form1.OpenANewFilesAndPlay()
    85. End If
    86. Catch ex As Exception
    88. End Try
    89. Next
    91. For Each PlayAudioCDCMD As String In e.CommandLine
    92. If PlayAudioCDCMD = "--started-from-audio-cd" Then
    93. SideWindow.LoadeCDFromAutostart()
    94. End If
    95. Next
    97. For Each URLProtokoll As String In e.CommandLine
    98. Dim ProtokollName As String = "mw-djmaster:"
    99. Select Case URLProtokoll
    100. Case ProtokollName
    102. Case ProtokollName & "PlayDock1"
    103. Form1.Play1Start()
    104. Case ProtokollName & "PlayDock2"
    105. Form1.Play2Start()
    107. Case ProtokollName & "PauseDock1"
    108. Form1.PauseDock1()
    109. Case ProtokollName & "PauseDock2"
    110. Form1.PauseDock2()
    112. Case ProtokollName & "StopDock1"
    113. Form1.StopDock1()
    114. Case ProtokollName & "StopDock2"
    115. Form1.StopDock2()
    117. Case ProtokollName & "BackDock1"
    118. Form1.ZuruckEvant1()
    119. Case ProtokollName & "BackDock2"
    120. Form1.ZuruckEvant2()
    122. Case ProtokollName & "ForwadDock1"
    123. Form1.WeiterEvant1()
    124. Case ProtokollName & "ForwadDock2"
    125. Form1.WeiterEvant2()
    126. End Select
    127. Next
    128. Catch ex As Exception
    130. End Try
    132. End Sub
    133. Private Sub LoadeCDNofication()
    134. Try
    135. NotifWindow.MyDocksInfo = 9
    136. If Form1.IfNotflyWindowDisable = False Then
    137. NotifWindow.Show()
    138. End If
    139. NotifWindow.MyTimeTimeStart()
    141. Catch ex As Exception
    143. End Try
    145. End Sub
    146. End Class
    147. End Namespace



    VB.NET-Quellcode

    1. ​ Public Sub OpenANewFilesAndPlay()
    2. Try
    4. Dim extension As String = Path.GetExtension(OpenANewFile).ToLower
    5. Select Case extension
    6. Case ".vdpf"
    8. Case Else
    9. ListView1.Items.Clear()
    11. MP3New = TagLib.File.Create(OpenANewFile)
    12. Dim Eintrag = ListView1.Items.Add(System.IO.Path.GetFileNameWithoutExtension(OpenANewFile))
    13. Eintrag.ImageIndex = ImageList1.Images.Count = 0
    14. Eintrag.SubItems.Add(MP3New.Tag.Track)
    15. Eintrag.SubItems.Add(OpenANewFile)
    17. ListView1.Items(0).Selected = True
    18. ListView1.Focus()
    20. Play1Start()
    21. End Select
    23. Catch ex As Exception
    25. End Try
    26. End Sub

    Marvinware schrieb:

    Das Problem ist das die Software schon Fertig ist und sie neu in C# zu Programmieren zu aufwendig ist.


    Eine Aufforderung mal zu versuchen so statisch auf ein Form in C# zuzugreifen, ist keine Aufforderung die App in C# neu zu schreiben. Hättest du es nur mal in einem Test-Projekt probiert, wäre das wie es sich eigentlich gehört mit einer Fehlermeldung quittiert worden. So macht man das einfach nicht.

    Aber ich weiß wo de Hund begraben liegt. Die Sache ist du startest die Anwendung via Studio, dann wird zwar StartUpNextINstance geworfen(beim 2. Start), aber der Dateiname mit dem du evtl. die Anwendung erneut "startest", ist dann nicht in den Args.

    Start mal die App(aus dem Debug/Release Ordner) von Hand anstatt im Studio, dann sollte auch beim "2.start" alles in den Args sein, was du brauchst.

    Das hier musst du dir mal anschauen, denn könntest du richtig debuggen, wäre dir sofort aufgefallen, das die Dateinamen nicht in den Args sind.
    https://www.vb-paradise.de/index.php/Thread/88276-Debuggen-Fehler-finden-und-beseitigen/

    PS. @Marvinware
    Sorry, jetzt hatte ich was falsch gemacht, ich hatte immer eine Datei auf die EXE gezogen, beim 1. und 2. Start. Weil ich dich in die Irre führte, was nicht meine Absicht war, nehme ich das Verhalten mit den "Starts" genau unter die Lupe, werde heute Nachmittag dann berichten. Den Thread mit dem Debuggen, solltest du dir in dieser Zeit anschauen, denn dann wäre es auf jeden aufgefallen das beim 2. Start die Args Identisch sind mit denen vom ersten.

    PPS @Marvinware
    Hab's nach einer Minute schon gefunden. Ich hab geschaut, was kommen für Typen(Typ der Argumente) mit der Funktion rein. Beim StartUpNext Instance ist das 2. ein StartupNextInstanceEventArgs, dann ein Blick in die Doku hat mir verraten, das dieser Typ eine Eigenschaft mit dem Namen CommandLine hat.

    learn.microsoft.com/de-de/dotn…s?view=windowsdesktop-6.0

    Das hier ist also die Lösung:

    VB.NET-Quellcode

    1. Private Sub MyApplication_StartupNextInstance(sender As Object, e As StartupNextInstanceEventArgs) Handles Me.StartupNextInstance
    2. For Each d As String In e.CommandLine
    4. Next
    5. End Sub



    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „BitBrösel“ ()

    Marvinware schrieb:

    VB.NET-Quellcode

    1. Form1.OpenANewFileNotLoadPlaylist = 1
    Was ganz genau ist Form1, Siehe Post #2?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende