高手请教，为什么下面程序没有了DoEvents后，再点击就不响应？如何翻译DoEvents?

显示全部楼层 · 2011-2-17 01:38:34

Private Sub Form_Click()
Do

XPos = Rnd * ScaleWidth \\\' 得到水平位置。

YPos = Rnd * ScaleHeight \\\' 得到垂直位置。

PSet (XPos, YPos), QBColor(Rnd * 15) \\\' 画五彩碎纸。

DrawWidth = 8

DoEvents \\\' 进行
Loop \\\' 其它处理。

End Sub

千问 · 2011-2-17 01:38:34

<pre id=\\\"best-answer-content\\\">DoEvents 才不是什么放弃操作

DoEvents就是先交出CPU的使用权,暂时让其它同一时间需要使用CPU的过程先运行,如果一个CPU处理周期里没有其它过程使用CPU了,自己的这个过程才会再次使用CPU

如果没有写DoEvents,Do...Loop(Form_Click)这个过程就会一直使用CPU,而你需要CPU处理的再次点击事件就没有人管了,所以就成了不响应了~

千问 · 2011-2-17 01:38:34

<p>

<pre class=\\\"answer-content\\\">DoEvents 放弃操作，让程序能够继续执行下面的代码

</p>