Threading: Wait-Dialog Text zwischendurch ändern

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

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

    Threading: Wait-Dialog Text zwischendurch ändern

    Hallo zusammen.

    Ich hab' mit Threading nicht so viel am Hut, daher hier meine Problemstellung:

    Bei mir gibt's einen kleinen "IsBusy-Dialog" (dlgIsBusy) - also eine Form, wo ein Ladebalken durch rennt (Marquee), einem Label für eine Beschreibung und einen Titeltext:
    Spoiler anzeigen


    VB.NET-Quellcode

    1. Imports System.Threading, System.ComponentModel
    2. Partial Public Class dlgIsBusy : Inherits Form
    4. Public Sub New()
    5. InitializeComponent()
    6. End Sub
    8. Public Sub New(Text As String, Description As String)
    9. InitializeComponent()
    10. Me.Text = Text
    11. lblDesc.Text = Description
    12. End Sub
    14. End Class



    Angesprochen wird das so (und funzt auch einwandfrei):

    VB.NET-Quellcode

    1. Using New Threading.WaitDlg(New dlgIsBusy("Fenstertitel", $"Beschreibung (Label)"))
    2. 'Tu irgendwas
    3. End Using


    Die Klasse WaitDlg:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class WaitDlg : Implements IDisposable
    2. Private _waitDlg As Form
    4. Public Sub New(dlg As Form)
    5. _waitDlg = dlg
    6. Dim thr As New Thread(New ThreadStart(AddressOf workerThread))
    7. With thr
    8. .IsBackground = True
    9. .SetApartmentState(ApartmentState.STA)
    10. .Start()
    11. End With
    12. End Sub
    14. Public Sub Dispose() Implements IDisposable.Dispose
    15. _waitDlg.Invoke(New MethodInvoker(AddressOf stopThread))
    16. End Sub
    18. Private Sub stopThread()
    19. _waitDlg.Close()
    20. End Sub
    22. Private Sub workerThread()
    23. With _waitDlg
    24. .TopMost = True
    25. End With
    26. Application.Run(_waitDlg)
    27. End Sub
    29. End Class


    Hab ich irgendwie die Möglichkeit den Titel oder die Beschreibung zwischendurch zu ändern (innerhalb des Using-Blocks)?
    Also in etwa so:

    VB.NET-Quellcode

    1. Using New Threading.WaitDlg(New dlgIsBusy("Fenstertitel", $"Beschreibung (Label)"))
    2. 'Tu irgendwas
    3. 'hier Beschreibung ändern
    4. 'Tu was anderes
    5. 'hier Beschreibung ändern
    6. 'etc..
    7. End Using

    VB.NET-Quellcode

    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    @tragl Sende vom Prozess an den Dialog ein Event.
    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!

    RodFromGermany schrieb:

    an den Dialog ein Event.

    Steh' grad aufm Schlauch. Müsste ich dann wohl erst deklarieren - sowas wie
    Using dlgWait As New Threading.WaitDlg(New dlgIsBusy("Fenstertitel", $"Beschreibung (Label)")) ?
    Erst dann kann ich ihn ja theoretisch ansprechen oder?

    Edit: hmm, wohl eher nicht, damit kann ich ja nur die Klasse WaitDlg ansprechen, ich bräuchte aber ja die Form,
    da hätte ich schon was vorbereitet:

    VB.NET-Quellcode

    1. Public Sub UpdateTitleAndDescription(Description As String, Optional Title As String = "")
    2. lblDesc.Text = Description
    3. If Title <> "" Then Me.Text = Title
    4. End Sub



    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

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

    @tragl Sorry, das ist ja anders herum.
    Du willst den Dialog in einem separaten GUI-Thrfead laufen lassen und vom Hauptprogramm aus den Dialog aktualisieren.
    Dann instanziiere den Dialog nicht anonym, sondern pack die Instanz in eine Variable und weise der die neuen Texte zu.
    Feddich.
    Ich hab das so gelöst:

    C#-Quellcode

    1. /// <summary>
    2. /// Start des Progress-Dialogs in einem anderen Thread
    3. /// </summary>
    4. private void ShowProgress()
    5. {
    6. // Zwei Bars anzeigenoder nicht
    7. this.DlgProgress = new FrmProgress();
    8. this.DlgProgress.BreakHandler += new EventHandler<EventArgs>(this.DlgProgress_BreakHandler);
    9. Application.Run(this.DlgProgress);
    10. }

    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!

    tragl schrieb:

    Leider nein...
    Lies mal den Fehler ganz laut vor.
    Bei 717 Posts im Forum solltest Du nur etwa 20 Sekunden brauchen, um das aufzulösen :!:
    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!

    @RodFromGermany: Hab schon verstanden, dass das der falsche Thread ist. Aber wie komm ich auf den des Dialogs?
    Wie gesagt, die ganze Geschichte mit dem Threading ist Neuland für mich :( Wobei ich das sicher später mal öfter brauchen werde, um die Performance
    ggf. noch zu verbessern. Aber soweit isses noch nicht
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    @tragl In meinem C#-Snippet gibt es die Variable DlgProgress.
    Der hat eine Methode zum Reinreichen der anzuzeigenden Information.
    Da der Dialog in einem anderen Thread läuft, musst Du die Ausgabe invoken.
    Dazu findest Du hier im Forum beliebig viele Beispiele.
    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!

    Für Laien wie mich sieht das alles sehr Pfeil-Rücken-Brust-Auge mit dem ganzen Dialogzeugsl aus.
    Worin besteht der Zweck des ganzen Systems? Weil: Selbst wenn man das bestehende so zum Laufen wie gewünscht bekommt: Warum wird nicht einfach einem normalen Gui-Thread-Dialogfenster eine langwierige Aufgabe als z.B. Parameter oder so mit übergeben, der Dialog startet den kritischen/langanhaltenden Prozess nebenläufig und lässt sich von dem regelmäßig Updates geben?
    Damit bestünde das ganze Konstrukt aus einem MainForm, einem WarteDialogForm, welches per ShowDialog ganz normal aufgerufen wird, und einem Async/Await-Aufruf mit der langwierigen Aufgabe.
    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.

    VaporiZed schrieb:

    welches per ShowDialog ganz normal aufgerufen wird, und einem Async/Await-Aufruf mit der langwierigen Aufgabe.

    ist ja nicht so machbar mit Daten beiläufig laden etc. Ich hab die Dinger auch eher selten verbaut weil das Meiste zügig durch läuft.
    Außerdem müsste ich ja dann für jede länger dauernde Aufgabe was basteln. So hab ich nen vorgefertigten "Dialog" mit nem "Ladebalken" und möchte ja nur bei Bedarf den Text anpassen können - sodass ich auch sehe, was da gerade im Hintergrund passiert.

    @RodFromGermany: Hatte ich schon probiert, funzt nicht:


    UpdateTitleAndDescription ist eine Public Sub auf der Form dlgIsBusy:

    VB.NET-Quellcode

    1. Imports System.Threading, System.ComponentModel
    2. Partial Public Class dlgIsBusy : Inherits Form
    4. Public Sub New()
    5. InitializeComponent()
    6. End Sub
    8. Public Sub New(Text As String, Description As String)
    9. InitializeComponent()
    10. Me.Text = Text
    11. lblDesc.Text = Description
    12. End Sub
    14. Public Sub UpdateTitleAndDescription(Description As String, Optional Title As String = "")
    15. lblDesc.Text = Description
    16. If Title <> "" Then Me.Text = Title
    17. End Sub
    19. End Class

    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    tragl schrieb:

    ist ja nicht so machbar mit Daten beiläufig laden etc.
    Warum nicht? Nur GUI-Änderungen müssen im GUI-Thread laufen. Welches Datenladen darf nicht nebenläufig gemacht werden?
    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.

    tragl schrieb:

    Hatte ich schon probiert, funzt nicht
    OMG.
    Wenn Du das so nicht kannst, schreibe einfachen Code, den Du selbst verstehen kannst.
    Form1 mit 2 Button, Form2 mit 1 Label

    VB.NET-Quellcode

    1. Imports System.Threading
    3. Public Class Form1
    4. Private ThreadForm As Form2
    5. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    6. Dim th = New Thread(AddressOf StartDialog)
    7. th.Start()
    8. End Sub
    10. Private Sub StartDialog()
    11. If ThreadForm Is Nothing Then
    12. ThreadForm = New Form2
    13. Application.Run(ThreadForm)
    14. End If
    15. End Sub
    17. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    18. If ThreadForm IsNot Nothing Then
    19. For i = 1 To 100
    20. Thread.Sleep(100)
    21. ThreadForm.SetText(i.ToString)
    22. Next
    23. End If
    24. End Sub
    26. Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
    27. If ThreadForm IsNot Nothing Then
    28. ThreadForm.Close()
    29. End If
    30. End Sub
    31. End Class

    VB.NET-Quellcode

    1. Public Class Form2
    2. Public Sub SetText(msg As String)
    3. If Me.InvokeRequired Then
    4. ' ruft sich selbst auf
    5. Dim ac = New Action(Of String)(AddressOf SetText)
    6. Me.Invoke(ac, msg)
    7. Return
    8. End If
    10. Me.Label1.Text = msg
    11. End Sub
    13. Public Overloads Sub Close()
    14. If Me.InvokeRequired Then
    15. ' ruft sich selbst auf
    16. Dim ac = New Action(AddressOf Close)
    17. Me.Invoke(ac)
    18. Return
    19. End If
    21. MyBase.Close()
    22. End Sub
    23. 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!

    @RodFromGermany:
    Danke! Und Sorry, geht nun

    VB.NET-Quellcode

    1. Public Sub UpdateDescription(Description As String)
    2. If Me.InvokeRequired Then
    3. Dim act As New Action(Of String)(AddressOf UpdateDescription)
    4. Me.Invoke(act, Description)
    5. End If
    6. lblDesc.Text = Description
    7. End Sub


    Intellisense ist in den Dingen aber nicht hilfreich:


    InvokeRequired wird z.B. nicht angezeigt :( - im Übrigen auch nicht im Objektbrowser.
    Das hatte ich auch schon, dass Invoke angezeigt wird, nicht aber BeginInvoke

    Macht das Sinn, die Instanziierung des Dialogs auch in einen Using-Block zu packen? Denke ja oder?

    VB.NET-Quellcode

    1. Using dlgtest As New dlgIsBusy("Test", "Test")
    2. Using New Threading.WaitDlg(dlgtest)
    3. For i = 1 To 1000
    4. Dim wait = Rnd.Next(1, 3)
    5. Threading.Thread.Sleep(wait * 500)
    6. dlgtest.UpdateDescription(i.ToString)
    7. dlgtest.UpdateTitle($"Test{i}")
    8. Next
    9. End Using
    10. End Using

    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    tragl schrieb:

    geht nun
    Sieh Dir meinen Snippet noch mal ganz genau an.
    Und

    RodFromGermany schrieb:

    Da der Dialog in einem anderen Thread läuft, musst Du die Ausgabe invoken.
    Dazu findest Du hier im Forum beliebig viele Beispiele.



    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!

    RodFromGermany schrieb:

    Sieh Dir meinen Snippet noch mal ganz genau an.


    Hatte ich ja vorher gemacht. Willst du drauf hinaus, dass du den Thread für Form2 auf Form1 startest? Das mach ich ja über ne Klasse.

    Aufruf auf der Form, die was macht:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Using dlgtest As New dlgIsBusy("Test", "Test")
    2. Using New Threading.WaitDlg(dlgtest)
    3. For i = 1 To 1000
    4. Dim wait = Rnd.Next(1, 3)
    5. Threading.Thread.Sleep(wait * 500)
    6. dlgtest.UpdateDescription(i.ToString)
    7. dlgtest.UpdateTitle($"Test{i}")
    8. Next
    9. End Using
    10. End Using


    Klasse Threading.WaitDlg
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class WaitDlg : Implements IDisposable
    2. Private _waitDlg As Form
    4. Public Sub New(dlg As Form)
    5. _waitDlg = dlg
    6. Dim thr As New Thread(New ThreadStart(AddressOf workerThread))
    7. With thr
    8. .IsBackground = True
    9. .SetApartmentState(ApartmentState.STA)
    10. .Start()
    11. End With
    12. End Sub
    14. Public Sub Dispose() Implements IDisposable.Dispose
    15. _waitDlg.Invoke(New MethodInvoker(AddressOf stopThread))
    16. End Sub
    18. Private Sub stopThread()
    19. _waitDlg.Close()
    20. End Sub
    22. Private Sub workerThread()
    23. With _waitDlg
    24. .TopMost = True
    25. End With
    26. Application.Run(_waitDlg)
    27. End Sub
    29. End Class


    Der dlgIsBusy
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Partial Public Class dlgIsBusy : Inherits Form
    3. Public Sub New()
    4. InitializeComponent()
    5. End Sub
    7. Public Sub New(Text As String, Description As String)
    8. InitializeComponent()
    9. Me.Text = Text
    10. lblDesc.Text = Description
    11. End Sub
    13. Public Sub UpdateDescription(Description As String)
    14. If Me.InvokeRequired Then
    15. Dim act As New Action(Of String)(AddressOf UpdateDescription)
    16. Me.Invoke(act, Description)
    17. End If
    18. lblDesc.Text = Description
    19. End Sub
    21. Public Sub UpdateTitle(Title As String)
    22. If Me.InvokeRequired Then
    23. Dim act As New Action(Of String)(AddressOf UpdateTitle)
    24. Me.Invoke(act, Title)
    25. End If
    26. Me.Text = Title
    27. End Sub
    29. End Class


    Ich find das so nun auch sinnvoll gelöst, ich hatte nur Probleme mit dem Invoken - muss mich demnächst mal mehr mit der Thematik auseinandersetzen.
    Wenn du das nicht meintest, dann schreib bitte klar, was ich falsch gemacht habe ;)
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    tragl schrieb:

    dann schreib bitte klar, was ich falsch gemacht habe

    VB.NET-Quellcode

    1. Public Sub UpdateTitle(Title As String)
    2. If Me.InvokeRequired Then
    3. Dim act As New Action(Of String)(AddressOf UpdateTitle)
    4. Me.Invoke(act, Title)
    5. Return ' Dieses Return hast Du vergessen
    6. End If
    7. Me.Text = Title
    8. End Sub
    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!

    Hi

    Auch wenn vllt schon die Lösung gefunden wurde, hätte ich da noch einen Vorschlag. Für so einen Dialog, wo es evtl. nur eine ProgressBar, evtl. einen Button und es 3 Textfelder gibt, gibt es bereits einen Standarddialog (IProgressDialog) in Windows. Den rufe ich einfach auf und kann danach die Texte und die ProgressBar immer noch verändern. Normalerweise nimmt man diesen Dialog als FortschrittsDialog für Dateioperationen (Kopieren usw) oder man nutzt die ProgressBar im Marquee-Mode für irgendwas anderes.
    Mfg -Franky-

Facebook
Telefonspende