VB DoEvents用法

最近收到反馈说基线测距软件时常有死机的情况出现,经过调查发现当程序非正常退出时会出现软件死机,且进程被占用的情况,分析代码后猜想是不是doevents用的不对,于是上网查了下别人的资料:

下面一篇是我觉得讲的比较通俗的文章,连接转自:

VB DoEvents用法

VB6.0

Windows98

我要实现一个类似Windows复制(移动)文件时的提示窗体,耗时很长,且要求中断后能继续未完成的操作,不知使用DoEvents从长循环中跳出后,程序将从何处开始继续执行,是否是从DoEvents所在的Sub开始?(倔小孩)

事实上仅使用DoEvents,并不意味着从长循环中跳出。DoEvents只是允许用户选择其他按钮而已,不中断循环,不管用户如何操作,都继续执行 DoEvents后面的语句,即使用户按下了中断按钮,你的循环仍然在继续,甚至你关闭了窗体,程序仍然继续在后台运行。正确的中断处理是这样的:

1、建立一个全局或窗体变量bRun。

2、在启动循环前设置bRun为True。

bRun = True

While bRun And (....)

....

DoEvents

Wend

...

3、在中断按钮Click事件中加入代码:

bRun = False

4、在Form_Unload事件中加入代码:

bRun = False

这样一旦用户按下了中断按钮,bRun = False,循环的条件就不满足了,所以退出循环,执行后续语句。你也可以采用下面的方式:

bRun = True

While ....

If Not bRun Then

Exit Sub

End If

....

DoEvents

Wend

...

郭勇的意见:

《解析 事件,Doevents,闲置循环和控时循环中的难点问题》

Visualbasic6.0 代码

copyright guoyong in cqums(2004-2-26)

关键问题归于doevents 函数

DoEvents函数的功能是:转让控制权,以便让操作系统处理其它的事件。

问:为什么要用doevents?

A.在需要用某一循环处理相当耗时或者很快速的代码时,就需要用到它,以便用户能在起处理过程中能做其他事情,即程序能被控制,而不是无响应状态

B.vb6.0中多线程vb代码极度不稳定,而且无法调试,所以vb中的多线程用的很少(注:是指vb的代码在多线程中运行时不稳定)

C.timer控件可以起到后台运行作用,但其是通过事件控制,一是不稳定,二是速度太慢,如果想用其处理高速又耗系统的代码更本不能达到预期的效果

下面将其某些用法和难点简介如下:

(注: \'** 后面的代码表示如果在该处用了这个语句

以下代码中用到了一些api函数,请用vb附带的api浏览器查阅)

一. 基本用法:

1.窗体启动时如果要处理的事务太多或者用sleep函数暂停,造成其很久都不能出现时怎么办?

例如代码:

Private Sub Form_Load()

Show

\'**DoEvents

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 Command3_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在变化

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

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