VB 多线程CPU占用高问题

Question

如题  多线程一开始 CPU占用就99%  要怎么解决?

Answer 1

新线程中是不是有个循环一直在工作？如果是的话，试试在循环中加个 DoEvents 和 Sleep(1)例：Option ExplicitPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Sub Main()
    Dim i As Long
    For i = 1 To 10 ^ 9
        DoEvents
        Call Sleep(1)
    Next i
End Sub不过如果你的线程是要精确计时的话，就不要用这方法了~~
光 Sleep(1) 这一步，每次循环就延时1毫秒，1000次循环就慢1秒
DoEvents 就不知道延时多少了