Attendez une seconde à chaque tour de boucle

Vous avez besoin pour marquer la méthode async.

for each item in msg
    print(item)
    await Task.Delay(1000)//Await a second
next item

Pour cadre des restrictions si vous ne pouvez pas utiliser la fonctionnalité async vous aurez à le faire qu'avec minuterie ou d'un autre mécanisme.

Private Async Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim msg() As String = {"a", "b", "c", "e"}

    For Each item In msg
        MessageBox.Show(item)
        Await Task.Delay(1000)//Await a second
    Next
End Sub

Task.Delay(1000) sera de retour d'une Task qui finira par arriver à son terme après avoir fourni millisecondes(1 000 dans ce cas). Nous sommes en attente(de manière asynchrone en attente) sur cette tâche. Pour activer Await fonctionnalité, vous devez marquer la méthode que Async.

Cette vous guide async/await œuvres.

---

Pour .net 4.0, et qui ne peuvent utiliser de la Bcl.Async pack code suivant va vous aider.

public class PeriodicEnumerator<T>
{
private IEnumerable<T> sequence;
private Action<T> action;
private int period;
private System.Threading.Timer timer;
private SynchronizationContext synchronizationContext;
private IEnumerator<T> enumerator;
private TaskCompletionSource<object> completionSource = new TaskCompletionSource<object>();
public PeriodicEnumerator(IEnumerable<T> sequence, Action<T> action, int period)
: this(sequence, action, period, null)
{
}
public PeriodicEnumerator(IEnumerable<T> sequence, Action<T> action, int period, SynchronizationContext synchronizationContext)
{
this.sequence = sequence;
this.action = action;
this.period = period;
this.synchronizationContext = synchronizationContext;
this.timer = new System.Threading.Timer(TimerCallback);
}
public Task Enumerate()
{
if (this.enumerator != null)
{
throw new InvalidOperationException("Enumeration already started");
//To avoid multiple enumerations, better create new instance
}
enumerator = sequence.GetEnumerator();
timer.Change(0, Timeout.Infinite);
return completionSource.Task;
}
private void TimerCallback(object state)
{
if (!enumerator.MoveNext())
{
completionSource.SetResult(null);
timer.Dispose();
return;
}
try
{
T current = enumerator.Current;
if (synchronizationContext != null)
{
synchronizationContext.Send((x) => action(current), null);
}
else
{
action(current);
}
timer.Change(period, Timeout.Infinite);
}
catch (Exception ex)
{
completionSource.SetException(ex);
timer.Dispose();
}
}
}

Cas d'utilisation:

static void ConsoleAppSample()
{
var periodicEnumerator = new PeriodicEnumerator<int>(Enumerable.Range(1, 5), (x) => Console.WriteLine(x), 1000);
Task enumerationTask = periodicEnumerator.Enumerate();
enumerationTask.Wait();//Optionally wait for completion
Console.WriteLine("Completed");
Console.Read();
}
static void SynchronizationContextSample()//applicable for any UI apps
{
var periodicEnumerator = new PeriodicEnumerator<int>(Enumerable.Range(1, 5), (x) => textbox.Text = x.ToString(), 1000,SynchronizationContext.Current);
Task enumerationTask = periodicEnumerator.Enumerate();
Console.WriteLine("Completed");
Console.Read();
}

Code est assez simple, je crois que personne n'a d'explication nécessaire 🙂 Si quoi que ce soit déposer un commentaire.

1. Avis que Enumerate méthode retourne une tâche, de sorte que vous pouvez vous attendre
   sur elle, ou de joindre une poursuite ou quoi que ce soit. (Vous pouvez ajouter
   fonction d'annulation, etc).
2. Aussi un support pour les applications avec interface graphique, assurez-vous de rappel est déclenché dans
   Thread d'INTERFACE utilisateur(compte tenu de SynchronizationContext) si tout prévu, de sorte que vous
   pouvez mettre à jour l'INTERFACE utilisateur dans le rappel facilement.

P. S: désolé pour le code c#, je suis fondamentalement c# gars, Ça va prendre des jours pour moi, le code de la Vb.Net :p

J'ai utilisé le fil dans mon code parce que le sommeil se bloque l'application.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim thread As New System.Threading.Thread(AddressOf ShowMessage)
thread.IsBackground = True
thread.Start()
End Sub
Private Sub ShowMessage()
Dim msg() As String = {"a", "b", "c", "e"}
For each item As String In msg
MessageBox.Show(item)
System.Threading.Thread.Sleep(1000)
Next
End Sub