Schrittweises Debugging endet nach Invoke

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

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

    Schrittweises Debugging endet nach Invoke

    Hallo,

    ich habe folgenden Code:

    VB.NET-Quellcode

    1. Private WithEvents nfcScanForm As dlgPersonalnr_NFC
    2. Private Sub Close_NfcForm() Handles nfcScanForm.Close_NfcScanForm
    3. If Not nfcScanForm Is Nothing Then
    4. If nfcScanForm.InvokeRequired Then
    5. nfcScanForm.Invoke(Sub() CloseThisForm(nfcScanForm))
    6. Else
    7. nfcScanForm.Close()
    8. nfcScanForm.Dispose()
    9. End If
    10. nfcScanForm = Nothing
    11. End If
    13. 'Jetzt müssen wir schauen ob die Form groß ist oder normal
    14. 'Und entsprechend die richtigen Statisiken wieder laden
    15. If BigView Then
    16. 'Große Ansicht
    17. OpenChildForm(New dlgStatistics_Big)
    18. Else
    19. 'kleine Ansicht
    20. OpenChildForm(New dlgStatistics_Small)
    21. End If
    22. End Sub
    24. Private Sub CloseThisForm(CloseForm As Form)
    25. CloseForm.Close()
    26. CloseForm.Dispose()
    27. End Sub


    Ich habe hier 2 Haltepunkte gesetzt, 1x in Zeile 2 und 1x in Zeile 14 (If BigView then).
    Ich kann in Einzelschritten jede Zeile bis ich auf "End Sub" der Sub "CloseThisForm" komme.
    Ab da endet das Einzelschritt-Debugging und das Programm läuft im "Live" Modus weiter.
    Warum ist das so, wieso komme ich nicht auf Zeile 9 nachdem die Sub "CloseThisForm" abgearbeitet wurde?
    Habe ich irgend einen Fehler drin und sehe es nicht?

    Danke

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Montoyafan“ ()

    Ok, vorab: nfcScanForm ist offensichtlich kein normales Form, sondern ein Derivat, denn ein normales Form hat kein Close_NfcScanForm-Event. Wo ist dieser EventHandler stationiert? Wohl nicht in der nfcScanForm-Klasse, oder? Wann* wird das Close_NfcScanForm-Event von der nfcScanForm-Instanz abgefeuert?

    * Also, in welcher Methode?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Was mir jetzt noch fehlt, um das Problem überhaupt mal nachbauen zu können: Wie wird nfcScanForm instanziiert und nebenläufig aufgerufen? Denn nebenläufig ist das Ganze, sonst wäre das mit dem InvokeRequired nicht nötig. Aber ich brauche mit meinem Versuchen gar kein Invoke:

    Also machst Du es wohl anders.

    Auch wenn nfcScanForm bei der Deklaration und nicht im Nebenläufigkeitsbereich instanziiert wird, kommt es nicht zum InvokeRequired-Pfad.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Montoyafan schrieb:

    Ab da endet das Einzelschritt-Debugging und das Programm läuft im "Live" Modus weiter.
    Klar, weil Du in den Main-Thread invokt hast, um genau eine einzelne Prozedur abzuarbeiten.
    Da es in diesem Sinne kein Zurück-Invoken gibt, macht der Debugger in der Message-Loop weiter.
    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!

    Ja, etwas anders ^^

    VB.NET-Quellcode

    1. Private Sub Get_NFCTag() Handles btnGetNFC.Click
    2. If nfcScanForm Is Nothing Then nfcScanForm = New dlgPersonalnr_NFC
    3. OpenChildForm(nfcScanForm)
    4. End Sub
    6. Friend Sub OpenChildForm(OpenForm As Form)
    7. 'Hat activeChildForm bereits eine Form, schliessen
    8. If Not IsNothing(activeChildForm) Then
    9. activeChildForm.Close()
    10. activeChildForm = nothing
    11. End If
    13. activeChildForm = OpenForm
    14. OpenForm = Nothing
    16. activeChildForm.TopLevel = False
    17. activeChildForm.FormBorderStyle = FormBorderStyle.None
    18. activeChildForm.Dock = DockStyle.Fill
    19. If panel_Statistik.InvokeRequired Then
    20. panel_Statistik.Invoke(Sub() InvokePanel())
    21. Else
    22. panel_Statistik.Controls.Clear()
    23. panel_Statistik.Controls.Add(activeChildForm)
    24. panel_Statistik.Tag = activeChildForm
    25. activeChildForm.BringToFront()
    26. activeChildForm.Show()
    27. End If
    28. End Sub

    RodFromGermany schrieb:

    Da es in diesem Sinne kein Zurück-Invoken gibt, macht der Debugger in der Message-Loop weiter.
    Dann dürfte das hier m.E. gar nicht passieren:


    @Montoyafan: Aber da ist doch wieder kein nebenläufiger Subform-Aufruf. Oder was steckt hinter InvokePanel, was ja aufgerufen wird, wenn panel_Statistik irgendwas mit Nebenläufigkeit zu tun hat, wenn da wieder mit InvokeRequired gearbeitet wird? An welcher Codestelle wird das Ganze nebenläufig?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    InvokePanel enthält das gleiche wie im Else-Strang steht.

    Wenn ich das Beispiel in einem neuen Projekt nachbaue komme ich auch nicht auf den InvokeRequired-Pfad. ?(

    Zur Erklärung: Ich habe in der MainForm ein Panel panel_Statistik, in dem ein Form dlgStatistics_Small standartmäßig geladen wird.
    Klickt der User auf einen Button in der MainForm, wird dlgStatistics_Small in diesem Panel "entladen" und die NFC-Form darin angezeigt.
    Sobald der Scan erfolgreich war, soll das NFC-Form wieder entladen werden und dlgStatistics_Small (bzw. dlgStatistics_Big) wieder angezeigt werden.

    Daher die Frage, wo die Nebenläufigkeit quasi anfängt. Es muss ja sowas sein mit Threading.Thread oder Threading.Tasks.Task. Oder z.B. ein Aufruf einer Frameworkfunktion, die selber was nebenläufiges startet.

    Zu Deiner Erklärung: Ok, kann ich nachvollziehen. Aber es erklärt eben die Nebenläufigkeit noch nicht, die ja das Ganze InvokeRequired-Gedöns anscheinend notwendig macht.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Die NFC Form startet einen Thread.

    VB.NET-Quellcode

    1. ​Public Class dlgPersonalnr_NFC
    2. Public Event Close_NfcScanForm()
    3. Public Event Set_PersNr(ByVal stamp As String)
    5. Private myThread As New ThreadStart(AddressOf wait_forScan)
    6. Private WaitForScan_Thread As Thread
    8. Private Sub rfid_scan_Shown(sender As Object, e As EventArgs) Handles Me.Shown
    9. 'auf einen neuen Scan warten in eigenem Thread
    10. If ReaderConnected Then
    11. WaitForScan_Thread = New Thread(myThread) With {
    12. .IsBackground = True
    13. }
    14. WaitForScan_Thread.Start()
    15. End If
    16. End Sub
    18. Private Sub wait_forScan()
    19. Dim cardID As String = ""
    21. If lblStatus.InvokeRequired Then
    22. lblStatus.Invoke(Sub() lblStatus.Text = "Warte auf Transponder-Scan...")
    23. Else
    24. lblStatus.Text = "Warte auf Transponder-Scan..."
    25. End If
    27. While Me.connectCard = False
    28. 'Thread für 1 Millisekunde schlafen lassen
    29. Thread.Sleep(1)
    31. 'Abbrechen und SUB verlassen wenn ein Read-Abbruch angefordert wurde
    32. If StopReading Then
    33. Invoke(Sub() lblStatus.Text = "Lese-Pause")
    34. Return
    35. End If
    36. End While
    38. If lblStatus.InvokeRequired Then
    39. lblStatus.Invoke(Sub() lblStatus.Text = "Transponder erkannt")
    40. Else
    41. lblStatus.Text = "Transponder erkannt"
    42. End If
    44. cardID = getcardUID()
    45. If cardID <> "Error" AndAlso cardID <> "63000000" Then
    46. Dim stamp As String = dbModul.Get_StampFromRFID(cardID)
    48. If stamp <> "" Then
    49. SendStamp(stamp)
    50. Else
    51. Thread.Sleep(3000)
    52. WaitForScan_Thread = New Thread(myThread)
    53. WaitForScan_Thread.Start()
    54. End If
    55. Else
    56. If lblStatus.InvokeRequired Then
    57. lblStatus.Invoke(Sub() lblStatus.Text = "Fehler beim Lesen, bitte nochmal versuchen")
    58. Else
    59. lblStatus.Text = "Fehler beim Lesen, bitte nochmal versuchen"
    60. End If
    62. Thread.Sleep(3000)
    63. WaitForScan_Thread = New Thread(myThread)
    64. WaitForScan_Thread.Start()
    65. End If
    66. End Sub
    68. Private Sub SendStamp(stamp As String)
    69. RaiseEvent Set_PersNr(stamp)
    71. CloseForm
    72. End Sub
    74. Private Sub CloseForm()
    75. RaiseEvent Close_NfcScanForm()
    76. End Sub
    77. End Class

    @VaporiZed Missverständnis.
    Haltepunkt in CloseThisForm().
    Wenn CloseThisForm() beendet ist, ist das Ander-Thread-Intermezzo beendet.
    Das ist eine temporäre Task.
    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