这个程序可以不占cpu100%
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub TimeDelay(T As Long) '无CPU100%
Sleep T
End Sub
但是当界面上使用flash.ocx控件时，播放会出现中断，这是怎么回事！（解决了，如下）
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub TimeDelay(T As Long) '无CPU100%
dim i as long
for i=1 to t
Sleep 1
Doevents
next i
End Sub
分类: Visual Basic