2024年6月1日发(作者：)

Vb 开启程序以后程序界面会“没反应”

在VB编程的时候，很多人肯定碰到过开启程序以后程序界面会“没反应”，“没有

响应”，但是我们代码要求执行的任务还在正常的进行，任务执行完毕，程序界面又恢复

正常，尤其是使用循环的时候很容易出现程序没响应的现象，这类问题怎么解决呢？用

DoEv*nts就可以解决。举例：Private Sub DelayTime(num As Long)Dim star, ends As

Long

star = timeGetTime

ends = star

Do While ends - star < num

ends = timeGetTime

DoEv*nts

Loop

End SubDoEv*nts 是： 转让控制权，以便让操作系统处理其它的事件。最简单的理

解，比如你要在某个耗时很多的过程中（最常见的是循环），还要响应某个操作－比如控制

进度条的显示，那就需要加入DoEv*nts

但是，当看到这句话时，脑子里面的概念很模糊，只有一个浅薄的认识。打个比方：

如果现在有一个从1 到100000000的循环，有一点编程常识的人肯定知道在这个耗时较

长的循环过程中，基本上是不能进行别的操作（当然不排除一些特别的情况），但是因为某

些特别的要求，你要在循环过程中，进行其他操作，这时DoEv*nts 就派上用场了。

现在，大家应该明白了DoEv*nts 的主要功能了吧。下面举一些实例（基本上都是转

载的），当然建议自己能亲自去试验，理解会深一些。

(注: '** 后面的代码表示如果在该处用了这个语句 以下代码中用到了一些api函数,请

用vb附带的api浏览器查阅) （转载）

一. 基本用法:

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

怎么办?

例如代码:

Private Sub Form_Load()

Show

'**DoEv*nts

Sleep 5000

End Sub