欢迎您登陆并使用中国财税咨询中心为您免费提供的资料，交流，学习为一体的平台！

如果您在使用中遇到什么问题，请您不要吝啬，一定要写信给我们！！

Email:Shellapi@126.com 期待您的来信，或指导批语！

帮助内难免有收集的资料，如果侵犯了您的仅力，请您来信告知，我们马上删除或更新处理！

文章搜索--请输入关键词：

有很多程序员都不了解VB中的DoEvents函数。DoEvents函数可以临时返回控制器给操作系统，并允许它完成其他可能发生的事件。





当一个程序的代码需要花很长的时间去执行，比如在一个复杂的数学计算的时候，你需要运用DoEvents函数。在你代码适当的位置调用DoEvents函数，能够改变程序响应的时间。



这里有一个例子：在VB里创建一个标准的EXE文件并放置一个CommandButton和一个TextBox，然后，将下面的代码放入CommandButton的单击事件处理程序中：



Private Sub Command1_Click()

Dim i As Long, j As Long

For i = 1 To 100

Text1.Text = i

For j = 1 To 100000

NextNext



Text1.Text = “Done”

End Sub



你可以发现这个程序中有嵌套式循环，循环将持续几秒钟。每次，外部循环反复执行I



的值显示在text box中。当循环结束时，Done也显示出来了。



在你运行这个程序的时候究竟发生了什么呢？然而，text box不会改变直到Done显示



出来。问题在于在执行循环的时候系统非常繁忙，而循环语句中的I要显示在text box里面，这延迟windows队列。当循环完成以后，所有的请求都被执行。



现在在Text1.Text = i调用DoEvents函数。当你运行程序的时候，你会发现text box记下了I的值。调用DoEvents函数可以释放系统内存来完成其他请求，然后将控制器返回给VB程序。



虽然调用DoEvents函数是以速度为代价，但是可以让程序有时间执行其他的事件，这个代价是值得的。