您的位置：首页 > 编程语言 > VB

VB下的几个延时程序

2008-07-23 16:22 441 查看
 最近写个东西用到延时函数，整理一下：
代码1
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

代码2
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Function Delaytime(Milliseconds As Integer)
Dim Savetime As Double
Savetime = timeGetTime    '记下开始时的时间
While timeGetTime < Savetime + Milliseconds    '循环等待
DoEvents      '转让控制权，以便让操作系统处理其它的事件。
Wend
End Function

代码3
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Function Delaytime(Milliseconds As Integer)   '改造后的延时程序
Dim Savetime As Double
Savetime = timeGetTime    '记下开始时的时间
While timeGetTime < Savetime + Milliseconds    '循环等待
Sleep (30)    '加上这么一句后，该函数延时不占用CPU资源，也不像sleep函数，调用后程序无反应了。
DoEvents      '转让控制权，以便让操作系统处理其它的事件。
Wend
End Function
以上三个代码都能延时，代码一的缺点是延时长点后，在延时过程中程序无反应了；代码二的缺点是延时的时候程序有反应，延时过程中CPU接近100％，代码三是结合前两个代码，延时过程中程序也有反应，CPU占用也小。
                                            

                                        

                        
                        内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 点击这里给我发消息 
                    

                    

                    

                        

                         标签： 
                                                vb
                                                function
                                                integer
                                                

                        

                    


                

            


            

                
相关文章推荐

                

                
            

        

        

            

            
            

                

                    
新的分享

                    

                        
                    

                

            


            

                

                    
章节导航