VB中重要的DoEvents函数
点击次数：48 次 发布日期：2008-11-06 08:06:26 作者：源代码网
源代码网推荐 源代码网推荐 源代码网推荐当一个程序的代码需要花很长的时间去执行，比如在一个复杂的数学计算的时候，你需要运用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函数是以速度为代价，但是可以让程序有时间执行其他的事件，这个代价是值得的。 源代码网推荐 源代码网推荐 源代码网推荐 源代码网供稿. |
