Verhindern das mein Tool "keine Rückmeldung" anzeigt

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von mathysjp.

    Verhindern das mein Tool "keine Rückmeldung" anzeigt

    Ich lese in eine Listbox sehr viele Daten ein. Die Anzahl ist Variabel 10 - 500'000.
    Wenn ich dann zb in der Listbox rumeditiere, braucht mein Tool manchmal gut und gerne 30 sek bis die Aufgabe erledigt ist.
    Nun, wenn man während dieser Zeit auf dem Form herum klickt erhält man im Titel irgendeinmal "keine Rückmeldung". Was dann aber nicht heisst das das Tool gestorben ist!

    Lässt sich das irgendwie umgehen? Wie?

    Hallo

    Dazu kannst DoEvents verwenden.

    Beispiel:

    VB.NET-Quellcode

    1. For N As Long = 0 To 100000
    3. ' Bewirkt dass wenn N den Wert 200, 400, 600 u.s.w. hat, die Anwendung andere Ereignisse behandeln kann
    4. If N Mod 200 = 0 Then
    5. My.Application.DoEvents()
    6. End If
    8. ' Dein Code
    10. Next

    Würde DoEvents bei jedem Schleifendurchgang ausgeführt, würde die es keine 30 Sekunden dauern sondern Minuten.

    Danke für dein Beispiel.
    Das mit der Schleife habe ich nicht ganz verstanden, vielleicht kannst du mir das noch ein wenig ausführlicher erklären.

    Ich habe jetzt mal deinen Code eingebaut.Nur merke ich gar keine Veränderung.

    Also ich nehme deinen Code und mache ihn in das Clickerreignis des Buttons. Dann dort wo 'dein Code steht, habe ich eine Funktion die mir 125'000 Listboxeinträge löscht.

    Die Anwendung geht währen dieser Zeit immer noch auf "keine Rückantwort".

    Also dann so?
    Vom Gefühl her geht es auf jeden Fall ...

    VB.NET-Quellcode

    1. Try
    2. Dim results As New System.Text.StringBuilder
    3. For Each itm As String In ListBox1.Items
    4. If itm.Contains(txtDelListboxItems.Text) Then
    6. results.AppendLine(itm)
    9. '--------------------------------------------------
    10. Dim i As Integer
    11. For i = (ListBox1.Items.Count - 1) To 0 Step (-1)
    12. For N As Long = 0 To 100000
    14. ' Bewirkt dass wenn N den Wert 200, 400, 600 u.s.w. hat, die Anwendung andere Ereignisse behandeln kann
    15. If N Mod 200 = 0 Then
    16. ListBox1.Items.Remove(itm)
    17. My.Application.DoEvents()
    18. End If
    19. Next
    20. Next i
    21. '---------------------------------------------------
    23. End If
    25. Next
    26. If results.Length > 0 Then
    28. End If
    29. Catch ex As Exception
    30. 'MessageBox.Show(ex.ToString)
    31. End Try

    ich nehm mal an dass immer ein Item gelöscht werden soll, also

    VB.NET-Quellcode

    1. For N As Long = 0 To 100000
    2. ListBox1.Items.Remove(itm)
    3. ' Bewirkt dass wenn N den Wert 200, 400, 600 u.s.w. hat, die Anwendung andere Ereignisse behandeln kann
    4. If N Mod 200 = 0 Then
    5. My.Application.DoEvents()
    6. End If
    7. Next

Facebook
Telefonspende