VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 2006|回复: 1

[转帖] Doevents函数详解【某贴被删了重新发下以遍查阅】

[复制链接]
发表于 2014-4-1 08:47:13 | 显示全部楼层 |阅读模式

[本文是转贴,先感谢下原作者]

Doevents函数是一个很好用的函数,但很多人对它的用法不清楚或有误解。由于我在网上查到一篇关于此函数的用法,并添加了一些内容,不敢独享,特此献出。
    其中有一个“控时循环和变速齿轮”的内容,有点意思,感兴趣的可看一看。

    DoEvents函数的功能是:转让控制权,以便让操作系统处理其它的事件。
    问:为什么要用doevents?
     A.在需要用某一循环处理相当耗时或者很快速的代码时,就需要用到它,以便用户能在起处理过程中能做其他事情,即程序能被控制,而不是无响应状态
     B.vb6.0中多线程vb代码极度不稳定,而且无法调试,所以vb中的多线程用的很少(注:是指vb的代码在多线程中运行时不稳定)
     C.timer控件可以起到后台运行作用,但其是通过事件控制,一是不稳定,二是速度太慢,如果想用其处理高速又耗系统的代码更本不能达到预期的效果

下面将其某些用法和难点简介如下:
     
    (注: 1.'** 后面的代码表示如果在该处用了这个语句。2.例子中会用到API函数。3.以下例子都经vb6.0测试成功)
     
一. 基本用法:
    1.窗体启动时如果要处理的事务太多或者用sleep函数暂停,造成其很久都不能出现时怎么办?
    例如代码:
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)'此句写入模块
    Private Sub Form_Load()
    Show
    '**DoEvents  句3
    Sleep 5000
    End Sub
    通常容易想到在sleep前加个show,但还是不能达到预想的效果,窗体虽然出来了,但好象只达到了一半,如果加上第3句,将看到效果大不相同 。

    2.如果有个很耗时的循环导致程序不响应,怎么办?
    例如:
    Dim L As Long
    For L = 1 To 1000000
    '** DoEvents
    Next L
    如果无'**,在循环过程中程序无法处理事件,对于用户来说是不响应,无法控制的

    3.想在循环中看到处理过程?
    同样:
    Dim L As Long
    For L = 1 To 10000
    '** DoEvents
    Text1.Text=Cstr(l)
    Next L
    无'** 时将无法看到text1中的变化,而只在循环结束时看到最后结果

    4.怎样中止循环?
    如果有:
    Private Sub Command1_Click()
    Dim L As Long
    Do
     L = L + 1
     Debug.Print L  '在立即窗口中显示
     DoEvents
    Loop
    End Sub
    会发现当关闭窗口后,debug中的数据仍然在变化,说明并没结束
    需要如下:
    Dim IsExit As Boolean
    Private Sub Command1_Click()
    Dim L As Long
     IsExit = False
     Do While DoEvents
     If IsExit = True Then Exit Do
     L = L + 1
     Loop
    End Sub
     
    Private Sub Command2_Click()''或者在form_unload模块中等等
     IsExit = True
    End Sub
    其中 isexit是全局变量
    <>有些人喜欢用end语句来结束程序,小程序固然可以,但当太大,或者调用了某些特殊的api函数后可能导致预想不到的错误,如果装载了许多东西在程序结束时不处理将卸载很慢,而且这种做法也极不符合正规软件的要求...总之end语句毛病很多,此不详谈,建议少使用甚至不使用

二. 其基本用法大概就这些,现在解析其中的一些[难点]
     
    1.为什么还是不能结束?
    代码如下:
    Dim IsExit As Boolean
    Private Sub Command1_Click()
    Dim L As Long
     IsExit = False
     Do
     If IsExit = True Then Exit Do '句0
     DoEvents '** 句1
     Text1.Text = CStr(L) '** 句2
     L = L + 1
     Loop
    End Sub
     
    Private Sub Form_Load()
    Static N As Long
    N = N + 1
    MsgBox N
    End Sub
     
    Private Sub Form_Unload(Cancel As Integer)
     IsExit = True
    End Sub
     
    运行结果:启动时msg显示1,点击command1,text1在变化,此时再点form右上角的小差(关闭窗体),发现vb运行控制上的按扭并没变化,说明程序还在运行.如果编译成程序后运行,按下ctrl+del+alt也可发现它还没结束.
    通过读代码,并没发现错误,怎么回事?
    关键在于"句2"访问了控件的属性 :
    代码运行路径:当在doevents 时,程序释放控制权,可以接收事件消息,form-unload事件只能从此处产生,假设此时关闭form ,unload事件发生,即doevents后就运行unload代码,得到isexit=t,并且form卸载,代码返回到doevents 之后,运行句2.注意现在form 已经卸载了,text1从哪里来呢? 于是form重新装载,代码跳到form_load模块运行,所以在关闭窗体后可以看到msg 显示2,此模块运行完后再继续句2后面的代码,当下次循环遇到 句0时退出循环
    另:既然退出了循环,怎么还不能结束?
    vb程序规定(其实其他的windows语言一样):窗体卸载时并不是立即卸载其模块代码,而只先卸载窗体中的控件和一些属性值,程序中最后一个窗体卸载时才完全卸载.
    在这个单窗体程序中,form卸载时因为循环的控制无法卸载代码,失去了卸载代码的机会,导致再也不能卸载(因为没卸载代码,所以运行的句2是并不会出错) 。
    另:既然再次运行了form_load代码,怎么看不见窗体?
    因为程序启动时窗体的到显示的消息,而只运行此模块并没有(如果在msgbox n语句前加上show,就可以看到它了)
    如何解决?
    通过以上分析,应该很简单,把句1 和句2调换一下就可以了,关键:
    <仔细分析代码是如何运行的,避免在form已经卸载了情况下访问控件>

    2.用了doevents速度太慢了怎么办?
    doevents的代价是速度变慢,但要程序响应又不得不用,其实doevents语句允许任何应用程序执行相关事件,而不仅仅是你自己的程序,所以变得很慢.
    可以让它响应本程序事件动作,需要用到api函数GetInputState,它的声明语句为:
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    Public Declare Function GetInputState Lib "user32" () As Long
    例如用: If GetInputState() Then DoEvents '来代替doevents可使循环运行更快

    3.既要同时响应事件又要控件不变化,怎么办?
    例如在一个长的循环中向listview控件中添加记录,无doevents时程序无响应,但有它时控件又闪的厉害
    解决办法:
    a.不一定每次循环都doevents,可以在适当时间时才用,至少没那么闪
    b.应用api函数 ValidateRect 功能是使指定的矩型区域生效,通知Windows不对指定的区域进行重画 另:InvalidateRect 功能相反,同时需要用到函数 GetClientRect 取得指定对象的矩形区域 应用*rect函数指定listview的矩形区不重画,即可避免闪烁(但还是要注意恢复重画,否则看不见了真实效果)

    4.控时循环和变速齿轮
    请看下面的代码:
    Option Explicit
    Private Declare Function timeGetTime Lib "winmm.dll" () As Long
    Dim IsExit As Boolean
    Private Sub Command1_Click()
    Dim L As Long
    Dim Kt As Long
    IsExit = False
    Do
     Kt = timeGetTime()
     'do something
     L = L + 1
     Text1.Text = L
     'DoEvents '句 1
     While timeGetTime - Kt < 50 '句 2
     'While Abs(timeGetTime - Kt) < 50 '句 3
     'While Abs(timeGetTime - Kt) And (Not IsExit) < 50 '句 4
     
     DoEvents '句 5
     Wend
     'DoEvents '句 6
     If IsExit Then Exit Do
    Loop
    End Sub
     
    Private Sub Form_Unload(Cancel As Integer)
    IsExit = True
    End Sub
    其中可用的代码(除去加"'" 号的代码)就是通常的控时循环代码
    运行代码并不会出现错误,但在循环过程,请开启变速齿轮看看
    当关闭齿轮时,将发现text1.text停止了,别慌,等一段时间它又会继续(这要看你设定的时间,这里是50毫秒,如果设定的太长text1.text将半天都没变化,这是怎么回事?
     变速齿轮在启动时将hook.dll映射到你的程序地址运行,更改了timegettime()函数获取的时间
    如果在句2和句3间插入debug.print timegettime,timegettime-kt 将发现,在关闭齿轮的瞬间后者变成了负值,timegettime变小了,所以才造成需要等很久
    如果是编写游戏,而用户开了齿轮,那可就惨了
     
    解决方案:
    a.用句3代替句2,这个方法最简便,虽然不符实,但不会出问题,建议使用
    b.不要句5,换用句6(这样就能达到效果吗?) 因为齿轮还是从doevents语句运行时才能插的进来,所以只要kt=timegettime 和 timegettime之间没有doevents就不会出错
    ab.两种方法都有些小问题,但无大碍,有兴趣者请自己分析

    5.程序怎么"死了"?
    这只是一些人编写时没注意到的小问题,提醒一下:
    同样用上面的代码,如果设定的时间太短,以至在代码运行到句2时已经超时了,句5将不能运行了,当然程序就死了哦,以防万一,加上句1,所以此时也只能用a方案来解决齿轮的问题了
    有必要用句4代替句3 吗? 除非你设定的时间太长,人家想关闭你的程序要等上好半天。


在MSND上的内容:在使用全局数据时避免 DoEvents
当一个函数已通过 DoEvents 放弃控制时,可相当安全地再次调用函数。例如,下一过程将检测质数并用 DoEvents 语句周期地启动其它应用程序处理事件:

Function PrimeStatus (TestVal As Long) As Integer
   Dim Lim As Integer
   PrimeStatus = True
   Lim = Sqr(TestVal)
   For I = 2 To Lim
      If TestVal Mod I = 0 Then
         PrimeStatus = False
         Exit For
      End If
      If I Mod 200 = 0 Then DoEvents
   Next I
End Function

该代码中每重复 200 次就调用一次 DoEvents 语句。这样一来,当该环境的其余部分对事件作出响应时,只要有必要,PrimeStatus 过程就可继续计算。

考虑在调用 DoEvents 期间发生的事情。在其它窗体和应用程序处理事件时将暂停执行应用程序代码。这些事件之一有可能是一个按钮单击操作,它将再次启动 PrimeStatus 过程。

这将导致重新进入 PrimeStatus 过程的,但是,因为在函数每次出现时,堆栈都为其参数和局部变量分配了空间,所以重入不会引发冲突。当然,如果过多调用 PrimeStatus,则可能出现“溢出堆栈空间”错误。

如果 PrimeStatus 使用或改变模块级变量或全局数据,情况就会完全不同。此时,在 DoEvents 能够返回之前执行 PrimeStatus 的另一个实例,这将导致模块数据或全局数据的值完全不同于它们在调用 DoEvents 之前的值。于是,PrimeStatus 的结果将会难以预料。

点评

非常感谢  发表于 2015-1-8 19:19
发表于 2014-4-26 08:04:41 来自手机 | 显示全部楼层
好贴,谢谢了!!!!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-6-29 20:28

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表