自定义延时函数，帮忙看下，谢谢！

akg1147

Public  Sub  Delay(Secs  As  Long)   
  Dim  dtime,  a   
     
  dtime  =  Timer  +  Secs   
  Do  Until  Timer  >  dtime   
      a  =  DoEvents()   
  Loop   
     
  End  Sub   
     
  '''延迟时间时调用  Call  Delay（Second）  

在调用时CPU 使用率好高，怎么回事？例如：
posemessage hwd, &h100, &h31,0&
posemessage hwd, &h101, &h31,0&
call delay(4)
结果CPU达到100%

tjznl

之1秒)
var
  FirstTickCount, Now: Longint;
begin
  FirstTickCount := GetTickCount();
  repeat
    Application.ProcessMessages;
    Now := GetTickCount();
  until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;

VB代码
sub Delay(MSecs as Long)
dim FirstTickCount as Long
dim nowTime as Long

FirstTickCount = GetTickCount()
Do Until (nowTime - FirstTickCount >= MSecs) or (nowTime < FirstTickCount)
  DoEvent()
  nowTime = GetTickCount()
loop
end sub

许久不曾写vb代码了,不知道正确与否.

netant

用循环来本来占用CPU就是很高的.不过如果有其他软件在使用CPU,会自动降下来.

xyzpj

使用线程 用sleep()函数

61轻吾

Do  Until  Timer  >  dtime   
      a  =  DoEvents()   
  Loop   
一直循环，中间没有Sleep让CPU“休息”一下，占用率当然高咯。。。

tjznl

DoEvents就是让cpu休息.