求VB死循环导致程序不响应的解决方法

循环中应加入一条释放CPU使用权给系统处理其它请求的指令吧,DELPHI里有,VB里也应该有.

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

doevents

OK！

doevents, ok

guanshui

我认为在timer1.time中也可以查询lpt的状态。这样可以避免使用循环。