VB DoEvents用法 (2)

此时再点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

例如用: 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 吗? 除非你设定的时间太长,人家想关闭你的程序要等上好半天

好了,也差不多,该收工了,如果有什么忘了说,你又想知道的话,可以来和我一起探讨

若有什么错了的请指正,谢谢!

希望你能把程序写的更好!

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:https://www.heiqu.com/zwdypf.html