[转蝲]EXCEL VBA学习�W�记-VBA中�g�q�的�Ҏ��

Tue, 02 Sep 2014 04:55:00 GMT

在VB中实现�g�Ӟ��{�待�Q�的几种�Ҏ��

在程序流�E�中�l�常要�g时一�D�|��间后再��l�往下执行，在VB中常用的有以下几�U�方法（因�ؓTimer控�g打�ؕ了程序的��程所以一般不用它�Q�：

1.使用Windows API函数Sleep

新徏一个工�E�，��d��一个TextBox控�g和一个CommandButton控�g�Q�再��以下代码复制到代码�H�口�Q?br />
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执行�Q�按下Command1按钮�Q�程序停止执行，3�U�钟内不对用��L��操作做出反应�Q��ƈ且Text1里的内容�q�没有发生改变。这是怎么回事呢？原来�Q�Sleep函数功能是将调用它的�q�程挂�vdwMilliseconds毫秒旉��Q�在�q�段旉��内，此进�E�不对用��h��作做出反应，�E�序中虽然将Text1的Text属性改成Sleep begin�Q�但�q�没�{�完成对屏幕的更新进�E�就被挂起了�Q�对用户来说�E�序象是��L��一栗��所以这�U�方法虽然简单，但�ƈ不适用�?br />
2.使用Timer()函数

�q�是用的最多的一�U�方法，也是在VB联机手册中所推荐的。添加一个CommandButton控�g�Q�再��以下代码添加到代码�H�口中：

Private Sub Command2_Click()
Dim Savetime As Single
Text1 = "Timer begin"
Savetime = Timer '��C��开始的旉��
While Timer < Savetime + 5 '循环�{�待
DoEvents '转让控制权，以便让操作系�l�处理其它的事�g
Wend
Text1 = "Timer ok"
End Sub

�q�种�Ҏ��虽然也很��单，但却有有一个致命缺��P��那就是Timer函数�q�回的是从午夜开始到现在�l�过的秒数。所以Timer�q�回的最大��g��只是60*60*24-1�U�，如果从一天的23:59:58�U�开始计时等�?�U�，那么�E�序会永�q�地循环下去。要�q�行改良�Q�就要加上判断是否又开始了新的一天，那岂不是太麻烦。下面给大家推荐另一个Windows API函数�?br />
3.使用Windows API函数timeGetTime()

timeGetTime函数没有参数�Q�返回值是从开机到现在所�l�历的毫�U�数�Q�这个毫�U�数是非周期性递增的，所以不会出现Timer()函数出现的问题，而且�q�种�Ҏ��的精��性高于上一�U�方法。添加一个CommandButton控�g�Q�再��以下代码添加到代码�H�口中：

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Sub Command3_Click()
Dim Savetime As Double
Text1 = "timeGetTime begin"
Savetime = timeGetTime '��C��开始时的时�?br />While timeGetTime < Savetime + 5000 '循环�{�待
DoEvents '转让控制权，以便让操作系�l�处理其它的事�g
Wend
Text1 = "timeGetTime end"
End Sub

按F5执行�E�序�Q�按�q�几个按钮，您可以感受一下这几种�Ҏ��的优劣�?/div>

阿�?/a> 2014-09-02 12:55 发表评论

亚洲一区二区精品,992tv免费直播在线观看,国产精品无av码在线观看

[转蝲]EXCEL VBA学习�W�记-VBA中�g�q�的�Ҏ��