VB中重要的DoEvents函数

2024-07-21 02:20:59

字体：大中小

来源：转载

供稿：网友

有很多程序员都不了解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函数是以速度为代价，但是可以让程序有时间执行其他的事件，这个代价是值得的。

上一篇：vb6中word编程总结

下一篇：在VB项目中使用资源文件

学习交流

如何查找有故障的配件

如何查找有故障的配件...

热门图片

猜你喜欢的新闻

猜你喜欢的关注