(8)在VB中实现延时(等待)的几种方法.docVIP

(8)在 VB 中实现延时 (等待 )的几种方法 在程序流程中经常要延时一段时间后再继续往下执行 , 在 VB 中常用的有以下几种方法 (因为 Timer 控件打乱了程序 的流程所以一般不用它 ): 1.使用 API 函数 Sleep 新建一个工程 ,添加一个 TextBox 控件和一个 CommandButton 控件 ,再将以下代码复制到代码窗口 ‘声明 : Private Declare Sub Sleep Lib kernel32 (ByVal dwMilliseconds As Long) Private Sub Command1_Click() Text1 = sleep begin Sleep 3000 Text1 = sleep end End Sub 按 F5 执行 ,按下 Command1 按钮 ,程序停止执行 ,3 秒钟内不对用户的操作做出反应 ,并且 Text1 里的内容并没有发生改变 . 这是怎么回事呢 ?原来 ,Sleep 函数功能是将调用它的挂起 dwMilliseconds 毫秒时间 ,在这段时间内 ,此进程不对用户操 作做出反应 ,程序中虽然将 Text1 的 Text 属性改成 Sleep begin,但还没等完成对屏幕的更新进程就被挂起了 ,对用户来 说程序象是死机一样。所以这种方法虽然简单 ,但并不适用 . 2.使用 Timer() 函数 这是用的最多的一种方法 ,也是在 VB 联机手册中所推荐的。 添加一个 CommandButton 控件 ,再将以下代码添加到代码窗 口中 : Private Sub Command2_Click() Dim Savetime As Single Text1 = Timer begin Savetime = Timer ‘记下开始的时间 While Timer lt; Savetime + 5 ‘循环等待 DoEvents ‘转让控制权，以便让处理其它的事件。 Wend Text1 = Timer ok End Sub 这种方法虽然也很简单 ,但却有有一个致命缺陷 ,那就是 Timer 函数返回的是从午夜开始到现在经过的秒数。所以 Timer 返回的最大值也只是 60*60*24-1 秒 ,如果从一天的 23:59:58 秒开始计时等待 5 秒 , 那么程序会永远地循环下去。 要进行改良 ,就要加上判断是否又开始了新的一天 , 那岂不是太麻烦 .下面给大家推荐另一个 Windows API 函数 . 3.使用 Windows API 函数 timeGetTime() timeGetTime 函数没有参数 ,返回值是从开机到现在所经历的毫秒数 ,这个毫秒数是非周期性递增的 ,所以不会出现 Timer() 函数出现的问题 ,而且这种方法的精确性高于上一种方法。 添加一个 CommandButton 控件 ,再将以下代码添加到代码窗口 中: ‘声明 Private Declare Function timeGetTime Lib winmm.dll () As Long Private Sub Command3_Click() Dim Savetime As Double Text1 = timeGetTime begin Savetime = timeGetTime ‘记下开始时的时间 While timeGetTime lt; Savetime + 5000 ‘循环等待 DoEvents ‘转让控制权，以便让操作系统处理其它的事件。 Wend Text1 = timeGetTime end End Sub 按 F5 执行程序 ,按这几个按钮 ,您可以感受一下这几种方法的优劣。