存档

‘Visual Basic’ 分类的存档

这个程序可以不占cpu100%

2009年7月15日 Kinsta 没有评论

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 标签: