小吧 发表于 2005-4-24 17:04:08

关于doevents函数的用法？

<P>各位大哥们，看到如下代码：</P>
<P>Function PrimeStatus (TestVal As Long) As Integer
   Dim Lim As Integer
   PrimeStatus = True
   Lim = Sqr(TestVal)
   For I = 2 To Lim
      If TestVal Mod I = 0 Then
         PrimeStatus = False
         Exit For
      End If
      If I Mod 200 = 0 Then DoEvents
   Next I
End Function
能帮俺解释下具体doevents的用法、功能不？</P>
<P>俺搞了半天没太明白！</P>

马大哈 发表于 2005-4-24 18:19:40

<P>这个语句的作用是释放消息队列,让系统消息循环里累积的消息先处理掉</P>

小吧 发表于 2005-4-24 18:56:44

<P>多谢马哥赐教咯</P><P>哈大概就是为了不卡机</P><P>本来程序要执行很多次</P><P>就先处理掉一部分 然后再处理一部分！这样一部分一部分的来！</P><P>直到全部处理！！！！！！！</P><P>这样理解可以了把！</P>

马大哈 发表于 2005-4-25 13:25:51

呵呵，没错！可以这样理解

小吧 发表于 2005-4-25 18:15:15

<P>呵呵！</P>

马大哈 发表于 2005-6-2 12:23:40

<P>...................................</P><P>这也行?</P>

小吧 发表于 2005-6-2 16:57:59

<P>啊 ，这都可以啊</P>

小吧 发表于 2005-6-4 11:28:16

<P>哇 ，这也行哈！</P>
页: [1]
查看完整版本: 关于doevents函数的用法？