Auf Formular verweisen bei nur einer Instanz

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

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Achilleus.

    Auf Formular verweisen bei nur einer Instanz

    Hallo Leute,

    ich habe ein ganz simples Programm mit nur einem Modul und einem Formular. Das Formular wird über eine Main-Sub aufgerufen.
    Mit dem Programm möchte ich Google-Maps aufrufen und um Verbindungen anzuzeigen.
    Das funktioniert einwandfrei.

    Ich möchte aber immer nur eine Instanz starten und das geöffnete Formular bzw. den Webbrowser aktualisieren.
    Das mit einer Instanz klappt schon, aber nicht mit dem aktualisieren des Webbrowsers.

    Was mache ich denn falsch?

    Main-Prozedur:

    Spoiler anzeigen


    VB.NET-Quellcode

    1. Module MdlMain
    3. Public Sub Main()
    4. Dim inputArgument As String = "/"
    5. Dim i As Integer
    7. For Each s As String In Environment.GetCommandLineArgs
    8. i = i + 1
    9. If s.ToLower.StartsWith(inputArgument) Then
    11. If s.Contains("Google") Then
    13. Dim Adress() = s.Split(";"c)
    14. Dim sLinkStart As String = Adress(1)
    15. Dim sLinkZiel As String = Adress(2)
    17. sLinkStart = "saddr=" & sLinkStart.Replace(" ", "+").Replace(",", "")
    18. sLinkZiel = "daddr=" & sLinkZiel.Replace(" ", "+").Replace("ö", "oe").Replace("ü", "ue").Replace("ä", "ae").Replace("ß", "ss").Replace(",", "")
    20. Call SearchGoogleAdress(sLinkStart, sLinkZiel)
    21. End If
    22. End If
    23. Next
    24. End Sub
    26. ' Anwendung bereits gestartet?
    27. Public Function AppPrevInstance(Optional ByVal bShowMsg As Boolean = True,
    28. Optional ByVal bAppActivate As Boolean = True) As Boolean
    30. ' Anzahl der gestarteten Prozesse der eigenen Anwendung
    31. If Process.GetProcessesByName(Process.GetCurrentProcess.ProcessName).Length > 1 Then
    33. ' Erst-Anwendung aktivieren
    34. If bAppActivate Then
    35. AppActivate(Process.GetProcessesByName(Process.GetCurrentProcess.ProcessName)(1).Id)
    36. End If
    38. Return True
    39. Else
    40. Return False
    41. End If
    42. End Function
    44. Public Sub SearchGoogleAdress(sLinkStart As String, sLinkZiel As String)
    46. Dim sLink As String = "https://maps.google.com/maps?" & sLinkStart & "&" & sLinkZiel
    48. If AppPrevInstance() Then
    50. With FrmGoolgeMaps
    51. .WB_GooglMaps.Navigate(sLink)
    52. End With
    53. Else
    55. With FrmGoolgeMaps
    57. .WB_GooglMaps.Navigate(sLink)
    58. .ShowDialog()
    59. End With
    61. End If
    62. End Sub
    63. End Module




    Kann mir einer vielleicht ein Schubs in die richtige Richtung geben?
    Vielen Dank im Voraus.

    Gruß Achilleus

    Hallo Leute,

    ich bin nun etwas weiter gekommen.
    Zum einen habe ich von der Sub Main auf das einzige Formular umgestellt und das Projekt als Einzelanwendung umgestellt.
    In den Anwendungereignissen habe ich jetzt folgende Sub-Routine:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub MyApplication_StartupNextInstance(sender As Object, e As Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs) Handles Me.StartupNextInstance
    2. Dim inputArgument As String = "/"
    3. Dim i As Integer
    5. For Each s As String In Environment.GetCommandLineArgs
    6. i = i + 1
    7. If s.ToLower.StartsWith(inputArgument) Then
    8. MessageBox.Show(s.ToString)
    9. If s.Contains("Google") Then
    11. Dim Adress() = s.Split(";"c)
    12. Dim sLinkStart As String = Adress(1)
    13. Dim sLinkZiel As String = Adress(2)
    15. sLinkStart = "saddr=" & sLinkStart.Replace(" ", "+").Replace(",", "")
    16. sLinkZiel = "daddr=" & sLinkZiel.Replace(" ", "+").Replace("ö", "oe").Replace("ü", "ue").Replace("ä", "ae").Replace("ß", "ss").Replace(",", "")
    17. Dim sLink As String = "https://maps.google.com/maps?" & sLinkStart & "&" & sLinkZiel
    19. FrmGoogleMaps.text = "Google-Maps: " & sLink.ToString
    20. FrmGoogleMaps.WB_GooglMaps.Navigate(sLink)
    21. FrmGoogleMaps.WB_GooglMaps.Refresh
    22. System.Windows.Forms.Application.DoEvents()
    24. End If
    25. End If
    26. Next
    27. End Sub


    Ich habe jetzt aber festgestellt, dass sich die Environment.GetCommandLineArgs aber beim zweiten Aufruf gar nicht ändern. ;(

    Das Programm rufe ich ausschließlich aus Access heraus auf und zwar mit folgendem simplen Aufruf:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub BtnGoogle_Click()
    3. Dim sLinkStart As String: sLinkStart = txtStartAdresse.value
    4. Dim sLinkTarget As String: sLinkTarget = cmbStraße.value
    5. Dim sBatch As String
    7. sBatch = "E:\RoseSoft\Google.exe" & " " & """" & "/Google;" & sLinkStart & ";" & sLinkTarget & """"
    8. Shell sBatch, vbNormalNoFocus
    10. End Sub[/spoiler][spoiler]


    Die Argumente sLinkStart und sLinkTarget werden korrekt befüllt, aber beim dem Google-Programm kommen die nicht an.

    Was mache ich denn hier falsch?
    Ich könnte natürlich die Parameter auch in eine Txt-Datei speichern und diese dann immer auslesen, aber gibt es denn hier keine sinnvolle Lösung?


    Nachtrag:

    Ich habe die Lösung gefunden.
    Ich musste einfach auf die e.Commandline von der Sub MyApplication_StartupNextInstance verweisen und schon läuft es.
    Ferner muss ich anscheinend den Webbrowser auch erst einmal mit about:blank neu initialisieren. Erst dann hatte er die Suche neu gestartet.

    Hier nun meine vollständige (endgültige) Lösung:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub MyApplication_StartupNextInstance(sender As Object, e As Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs) Handles Me.StartupNextInstance
    2. Dim inputArgument As String = "/"
    3. Dim i As Integer
    5. For Each s As String In e.CommandLine
    6. i = i + 1
    7. If s.ToLower.StartsWith(inputArgument) Then
    9. If s.Contains("Google") Then
    11. Dim Adress() = s.Split(";"c)
    12. Dim sLinkStart As String = Adress(1)
    13. Dim sLinkZiel As String = Adress(2)
    15. sLinkStart = "saddr=" & sLinkStart.Replace(" ", "+").Replace(",", "")
    16. sLinkZiel = "daddr=" & sLinkZiel.Replace(" ", "+").Replace("ö", "oe").Replace("ü", "ue").Replace("ä", "ae").Replace("ß", "ss").Replace(",", "")
    17. Dim sLink As String = "https://maps.google.com/maps?" & sLinkStart & "&" & sLinkZiel
    19. FrmGoogleMaps.WB_GooglMaps.Navigate("about:blank")
    20. System.Windows.Forms.Application.DoEvents()
    21. FrmGoogleMaps.Text = "Google-Maps: " & sLink.ToString
    22. FrmGoogleMaps.WB_GooglMaps.Navigate(sLink)
    23. System.Windows.Forms.Application.DoEvents()
    25. End If
    26. End If
    27. Next
    29. End Sub



    Gruß Achilleus

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Achilleus“ () aus folgendem Grund: Lösung gepostet

Facebook
Telefonspende