Une façon simple et non bloquante de dormir?

Question

Je googlé pour cela et lire quelques fils, mais je n'ai pas trouvé un moyen simple d'avoir un sommeil d'application VB.Net pour un peu de temps et de toujours garder l'application réactive:

Imports System.Net 
Imports System.IO 
Imports System.Text 
Imports System.Text.RegularExpressions 
Imports System.Threading.Thread 

[...] 

''#How to keep screen frop freezing? 
While True 
    ListBox1.Items.Clear() 

    ListBox1.Items.Add("blah") 

    ''#Not much difference 
    ListBox1.Refresh() 

    ''#Wait 1mn 
    Sleep(60000) 
End While 

Est-il vraiment pas de solution simple et non bloquante pour attendre une application VB.Net pendant quelques secondes?

Merci.

Answer 1

Est-ce WinForms ou WPF? S'il s'agit de WinForms, vous pouvez simplement utiliser une minuterie au lieu d'une boucle while. Ensuite, votre application sera toujours réactive et déclenchera des événements.

Dans WPF, je pense que vous devez créer votre propre horloge basée sur le DispatchTimer class.

Answer 2

La suggestion Timer est vraiment la meilleure façon de le faire. Mais si DoEvents fonctionne encore (je ne l'ai pas fait depuis VB 5.0), vous pouvez le faire:

For i = 0 To 600 
    DoEvents 
    Sleep(100) 
Next 

Cela ferait 600 sommeils de 0,1 secondes chacun, avec un DoEvents entre chaque pour gérer les événements actuels. Le .1 seconde devrait être un bon compromis entre la réactivité (les événements sont traités en 0,1 seconde) et la consommation du CPU (faites cela trop vite et votre application commencera à consommer une quantité importante de temps processeur en attendant).

Answer 3

Public Sub ResponsiveSleep(ByRef iMilliSeconds As Integer) 
    Dim i As Integer, iHalfSeconds As Integer = iMilliSeconds/500 
    For i = 1 To iHalfSeconds 
     Threading.Thread.Sleep(500) : Application.DoEvents() 
    Next i 
End Sub 

Appelez ResponsiveSleep pour suspendre un code particulier tout en conservant une réactivité suffisante à l'application. Pour rendre l'application plus iHalfSeconds sensibles pourraient être modifiés pour dixièmes ou centièmes de seconde

Answer 4

Private Sub wait(ByVal interval As Integer) 
    Dim stopW As New Stopwatch 
    stopW.Start() 
    Do While stopW.ElapsedMilliseconds < interval 
     ' Allows your UI to remain responsive 
     Application.DoEvents() 
    Loop 
    stopW.Stop() 
End Sub 

Answer 5

Vraiment, la solution est double: 1. ) Utilisez une minuterie au lieu de dormir, le sommeil ne comme il est dit, les causes le fil pour dormir. 2.) Utilisez le multi-threading et faites fonctionner la fonction de mise au rebut de l'écran dans son propre thread, cela améliorera grandement la réactivité de votre application.

Threading.Thread.Sleep(IntSleepTime) 

est un fil fonction de sommeil sécuritaire qui se met en pause le thread courant pendant la durée spécifiée, donc si vous deviez utiliser le sommeil, vous pouvez le faire dans un environnement multi-threading et il gardera le reste de votre application sensible que vous êtes seulement en train de dormir un fil ramifié, pas le fil principal.

Answer 6

U sont faire le fil de l'interface utilisateur Qui remettant la forme à dormir. Si vous voulez que votre application soit réactive, commencez par créer une méthode qui ajoutera les éléments dans la vue de liste et quand les chargements initiaux commenceront cette méthode en utilisant thread, utilisez dorénavant sleep pour rendre votre thread de vue de liste sleep, et ur from responsive état ..

Answer 7

Ceci est pour VB pas VBA

Private Async Function PauseTime(ByVal MS As Integer) As Task 

    Await Task.Run(Sub()       
          Thread.Sleep(MS) 

        End Sub) 


    End Function