vb.net - 如何在 while 循环中限制 CPU 使用率

Question

如何限制 while 循环的 CPU？

在这种情况下，while 循环内的代码:

Private Sub wait(ByVal time)
        Dim sw As New Stopwatch
        sw.Start()
        Do While sw.ElapsedMilliseconds < time And StillOpen = True
            Application.DoEvents()
        Loop
        sw.Stop()
    End Sub

但是现在，问题来了。此循环允许 while 循环每秒运行一次，而 wait sub 会导致此延迟，这是应该的。

如何限制它占用的 CPU？出于某种原因，我的任务管理器说它需要 50 个 CPU 来运行这个简单的任务，但它应该不会超过 1 或 2 个。虽然经理说它占用了那么多 CPU，但我的计算机速度并没有受到影响考虑到它是一台使用了两年的笔记本电脑，这很奇怪。

我不想让任何用户为此感到害怕，但了解人们现在的情况......

反正语言是vb.net。有人可以帮帮我吗？

谢谢!

编辑:澄清一下，该代码不在 while 循环本身内，而是对子例程的调用，即 wait(1000)

Answer 1

使用定时器事件!!!几乎没有 CPU 消耗。