Warten Sie eine Sekunde, in jeder Schleife

Müssen Sie markieren die Methode als async.

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

Rahmen-Einschränkungen, wenn Sie Sie nicht verwenden async-Funktion, die Sie haben zu tun, dass mit timer oder einen anderen Mechanismus.

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) zurück Task die schließlich erreichen nach Abschluss zur Verfügung gestellt Millisekunden(1000 in diesem Fall). Wir warten(asynchron warten) auf diese Aufgabe. Aktivieren Await - Funktion benötigen Sie zur Markierung der Methode als Async.

Wird dies führen Sie wie async/await funktioniert.

Für .net 4.0, und wer nicht verwenden können, Bcl.Async-pack folgenden code helfen.

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();
        }
    }
}

Anwendungsfall:

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 ist ziemlich einfach, ich glaube keine Erklärung notwendig 🙂 Wenn etwas schreiben Sie einen Kommentar.

1. Beachten Sie, dass Enumerate Methode gibt eine Aufgabe, so dass Sie können warten,
   auf, oder befestigen Sie eine Fortsetzung oder was auch immer. (Sie können hinzufügen,
   Storno-Funktion etc).
2. Auch die Unterstützung für GUI-Anwendungen, um sicherzustellen, callback ausgelöst wird, in
   UI-thread(da SynchronizationContext), wenn keine zur Verfügung gestellt, so dass Sie
   kann update UI im callback leicht.

P. S: entschuldigt für c# - code, bin im Grunde c# Kerl, Es wird Tage dauern, für mich, um code in Vb.Net :p

Habe ich benutzt, Gewinde in meinem code, weil schlafen hängen Sie die Anwendung.

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