VB中重要的DoEvents函数

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

<script language="JavaScript1" src="http://ad.cn.doubleclick.net/adj/messagingplus.zdnet.com.cn/developer/code;sz=1x1;ord=969773625?"> </script> <script language="VBScript"> dcmaxversion = 7 dcminversion = 3 Do On Error Resume Next plugin = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & dcmaxversion & ""))) If plugin = true Then Exit Do dcmaxversion = dcmaxversion - 1 Loop While dcmaxversion >= dcminversion </script>

当一个程序的代码需要花很长的时间去执行，比如在一个复杂的数学计算的时候，你需要运用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函数是以速度为代价，但是可以让程序有时间执行其他的事件，这个代价是值得的。