暂停应用程序for语句的最佳方法

Question

我希望我设定的延迟在我的for语句中每1秒。这就是我所做的。

Dim dueTime As DateTime = DateTime.Now.Add(TimeSpan.FromSeconds(1))
 for i=1 to 500

While DateTime.Now < dueTime

Application.DoEvents()

                    End While
    'the code

        next i

由于我有10个这样的同步进程，我注意到我的系统中的cpu使用率上升到了70 %。我毫不拖延地运行了代码，结果只有10 %。还有别的办法吗？

注:我可以在C#或VB中找到自己的方法

Answer 1

你想要Await Task.Delay(TimeSpan.FromSeconds(1))