Messagebox Verhalten mit im Hintergrund laufenden Timer

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

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von HenryV.

    Messagebox Verhalten mit im Hintergrund laufenden Timer

    Grüß euch,

    Ich bin gerade dabei eine Art "Totmannschalter" für ein Drittprogramm zu erstellen. Das Ganze wurde von mir so erstellt das beim beim starten des Programms das Drittprogramm mitgestartet wird und nach einer gewissen Zeit eine
    MessageBox erscheint die fragt ob man weiterarbeiten möchte. Wenn ja wird der Counter zurückgesetzt, wenn nein oder keine Reaktion des Users wird das mein Programm und das Drittprogramm beendet. Das funktioniert auch alles wunderbar

    Jetzt habe ich folgendes Problem:

    Benutze ich einfach MessageBox.Show(Message) läuft der Counter im Hintergrund weiter.
    Benutze ich aber MessageBox.Show(Message, "Warnung", MessageBoxButtons.YesNo, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly) stoppt der Counter bis mit der MessageBox interagiert wird.
    Ich schätze es liegt an der "MessageBoxOptions.DefaultDesktopOnly"-Option, diese brauche ich aber damit sich das Fenster in den Vordergrund schiebt.
    Gibt es dafür eine Alternative die den Counter weiterlaufen lässt?


    Hier mein Code abgeändert auf notepad :)

    VB.NET-Quellcode

    1. Imports System.ComponentModel
    3. Public Class Form1
    5. Dim reset As Boolean = False
    6. Dim countdown As Integer = 30
    7. Dim CustomProcess As New System.Diagnostics.Process()
    8. Dim Message As String = "Vorsicht Notepad wird in 10 sec geschlossen. Wollen sie weiterarbeiten?"
    10. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    12. countdown = countdown - 1
    13. TextBox1.Text = countdown
    15. If countdown = 10 Then
    17. MessageBox.Show(Message, "Warnung", MessageBoxButtons.YesNo, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
    18. 'MessageBox.Show(Message)
    19. If DialogResult.Yes Then
    21. countdown = 30
    23. ElseIf DialogResult.Yes = False Then
    24. Me.Close()
    26. End If
    28. ElseIf countdown = 0 Then
    29. 'programm schließen
    30. Me.Close()
    31. ElseIf CustomProcess.HasExited = True Then
    32. Me.Close()
    33. End If
    35. End Sub
    37. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
    38. Timer1.Interval = 1000
    39. Timer1.Start()
    40. CustomProcess.StartInfo.FileName = "notepad.exe"
    41. CustomProcess.Start()
    42. 'Me.WindowState.Minimized
    44. End Sub
    46. Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
    47. Try
    48. CustomProcess.Kill()
    49. Catch ex As Exception
    51. End Try
    52. End Sub
    53. End Class


    LG
    Bernsi

    Hallo

    Was mir auf die schnelle einfallen würde wäre:

    Statt MessageBox.Show im TimerTick startest du einen zweiten Timer. Dieser läuft z.b. nach 100ms ab.
    Im Tick stoppt du diesen Timer und zeigst die Messagebox.

    Ich denke das sollte klappen.

    Grüße
    Sascha
    If _work = worktype.hard Then Me.Drink(Coffee)
    Seht euch auch meine Tutorialreihe <WPF Lernen/> an oder abonniert meinen YouTube Kanal.

    ## Bitte markiere einen Thread als "Erledigt" wenn deine Frage beantwortet wurde. ##

    Hi Sascha,

    Danke für deine Antwort.
    Hab das jetzt probiert (sofern ich das richtig verstanden habe) scheint leider nicht zu funktionieren :(

    Hier mein Versuch:

    VB.NET-Quellcode

    1. Imports System.ComponentModel
    3. Public Class Form1
    5. Dim reset As Boolean = False
    6. Dim countdown As Integer = 30
    7. Dim CustomProcess As New System.Diagnostics.Process()
    8. Dim Message As String = "Vorsicht Notepad wird in 10 sec geschlossen. Wollen sie weiterarbeiten?"
    10. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    12. countdown = countdown - 1
    13. TextBox1.Text = countdown
    15. If countdown = 10 Then
    17. Timer2.Start()
    19. ElseIf countdown = 0 Then
    20. 'programm schließen
    21. Me.Close()
    22. ElseIf CustomProcess.HasExited = True Then
    23. Me.Close()
    24. End If
    26. End Sub
    28. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
    29. Timer1.Interval = 1000
    30. Timer1.Start()
    31. Timer2.Interval = 100
    33. CustomProcess.StartInfo.FileName = "notepad.exe"
    34. CustomProcess.Start()
    35. 'Me.WindowState.Minimized
    37. End Sub
    39. Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
    40. Try
    41. CustomProcess.Kill()
    42. Catch ex As Exception
    44. End Try
    45. End Sub
    47. Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
    49. Timer2.Stop()
    51. If MessageBox.Show(Message, "Warnung", MessageBoxButtons.YesNo, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly) = DialogResult.Yes Then
    53. countdown = 30
    55. End If
    57. End Sub
    58. End Class


    LG
    Bernsi

    Hallo

    Schade, ein versuch war es Wert.

    Ich würde an deiner Stelle eine Form anzeigen anstatt einer Messagebox. Diese kann ja auch "TopMost" angezeigt werden und da läuft dein Code sicher durch.
    Wobei ich (wenn unter Window 10) eine Nachricht in die Nachrichtenzentrale schmeißen würde, das ist imho effektiver.

    Grüße
    Sascha
    If _work = worktype.hard Then Me.Drink(Coffee)
    Seht euch auch meine Tutorialreihe <WPF Lernen/> an oder abonniert meinen YouTube Kanal.

    ## Bitte markiere einen Thread als "Erledigt" wenn deine Frage beantwortet wurde. ##

    Bernsi schrieb:

    VB.NET-Quellcode

    1. Dim Message As String = "Vorsicht Notepad wird in 10 sec geschlossen. Wollen sie weiterarbeiten?"
    Das ist doch irgendwo suboptimal, denn der User will ganz gewiss weitermachen, nur muss er in diesem Moment ein wichtiges Telefonat tätigen und das Programm ist futsch.
    Das lässt sich doch ganz gewiss mit API.ShowWindow(hWnd, SW_HIDE) erledigen und auf dem Hauptprogramm mit nem Button und API.ShowWindow(hWnd, SW_SHOW) wieder restaurieren.
    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
    Es geht dabei um eine Software zur Werkzeugverwaltung die lizenzgebunden ist und bei der diese Usergruppe nur Viewingrechte hat.
    Der Sinn dahinter ist das nicht permanent Lizenzen von Sessions blockiert werden, die nicht mehr benötigt werden. Wenn ich das Fenster nur verstecke
    dann bleibt die Lizenz dahinter ausgecheckt.

    @ErfinderDesRades
    Gerne wenn du einen Link zu einem Beispiel hast.

    ich hab probiert, und der Zähler läuft auch weiter. Nur wenn die Anwendung schließt bleibt die Messagebox trotzdem geöffnet.
    Und ich find bislang kein Mittel, eine geöffnete Messagebox programmgesteuert zu schließen.
    aber probier selbst:

    VB.NET-Quellcode

    1. Imports System.ComponentModel
    2. Imports System.Threading
    3. Imports System.Threading.Tasks
    5. Public Class Form1
    7. Dim reset As Boolean = False
    8. Dim countdown As Integer = 20
    9. Dim CustomProcess As New System.Diagnostics.Process()
    10. Dim Message As String = "Vorsicht Notepad wird in 10 sec geschlossen. Wollen sie weiterarbeiten?"
    12. Private Async Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    13. countdown = countdown - 1
    14. TextBox1.Text = countdown.ToString
    15. If countdown = 10 AndAlso Await Task.Run(AddressOf MsgBox) = DialogResult.Yes Then countdown = 30
    16. If countdown = 0 OrElse CustomProcess.HasExited Then Me.Close()
    17. End Sub
    19. Private Function MsgBox() As DialogResult
    20. Return MessageBox.Show(Message, "Warnung", MessageBoxButtons.YesNo, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
    21. End Function
    23. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
    24. Timer1.Interval = 1000
    25. Timer1.Start()
    26. CustomProcess.StartInfo.FileName = "notepad.exe"
    27. CustomProcess.Start()
    28. End Sub
    30. Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
    31. Try
    32. CustomProcess.Kill()
    33. Catch ex As Exception
    34. End Try
    35. End Sub
    36. End Class



    Übrigens empfehle ich dir dringend Visual Studio - Empfohlene Einstellungen
    Du proggst offsichtlich unter Strict Off, und das ist sehr verheerend, und verbirgt reihenweise Fehler in deim Code.

    @Bernsi Isses da bicht besser festzustellen, ob der User seit n Sekunden das entsprechende Programmteil nicht (mehr) benutzt hat?
    Und dann einen Haken AutoLogout, da wird die Lizenz geschlossen und gut.
    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!

    Bernsi schrieb:

    Bin ja noch a bisserl noob was das ganze angeht
    Dann gugst Du vielleicht hier: [Sammelthread] Programmieren, aber was? (Programmideen)
    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!

    Ich habe die Antwort von @ErfinderDesRades anhand dieses Tipps ergänzt.

    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Imports System.ComponentModel
    2. Public Class Form1
    3. Dim countdown As Integer = 20
    4. Dim CustomProcess As New System.Diagnostics.Process()
    5. Dim Message As String = "Vorsicht Notepad wird in 10 sec geschlossen. Wollen sie weiterarbeiten?"
    6. Dim res As DialogResult '= DialogResult.Yes
    8. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    9. countdown = countdown - 1
    10. TextBox1.Text = countdown.ToString
    11. If countdown = 10 Then MsgBox()
    12. If countdown = 0 OrElse res = DialogResult.No OrElse CustomProcess.HasExited Then Me.Close()
    13. End Sub
    15. Private Sub MsgBox()
    16. Dim w As Form = New Form() With {.Size = New Size(0, 0), .TopMost = True}
    17. Task.Delay(TimeSpan.FromSeconds(10)).ContinueWith(Sub(t) w.Close(), TaskScheduler.FromCurrentSynchronizationContext())
    18. res = MessageBox.Show(w, Message, "Warnung", MessageBoxButtons.YesNo)
    19. If res = DialogResult.Yes Then countdown = 30
    20. End Sub
    22. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
    23. Timer1.Interval = 1000
    24. Timer1.Start()
    25. CustomProcess.StartInfo.FileName = "notepad.exe"
    26. CustomProcess.Start()
    27. End Sub
    29. Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
    30. Try
    31. CustomProcess.Kill()
    32. Catch ex As Exception
    33. End Try
    34. End Sub
    36. End Class