VB中DoEvents的注意事项

对与再大循环里 加入   DoEvents却是可以使应用程序响应其他程序，但是 DoEvents 也会很大程度上影响循环的速度，所以一般情况我这样用

If GetInputState Then DoEvents

虽然多了个判断语句，但速度上确快了很多

比较以下代码代码就知道了速度的差别

Private Declare Function GetInputState Lib "user32" () As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub Command1_Click()
      Dim s As Long
      s = GetTickCount
      For i = 1 To 1000000
          DoEvents
      Next
      MsgBox GetTickCount - s
End Sub

Private Sub Command2_Click()
      Dim s As Long
      s = GetTickCount
      For i = 1 To 1000000
          If GetInputState Then DoEvents
      Next
      MsgBox GetTickCount - s
End Sub

 

以上情况五次测试结果分别为：

Command1 : 5398 , 4852 , 4820 , 6318 , 5428
Command2 : 203 , 202 , 203 ,  203 , 203

测试环境：Win Vista U版 + VB6 ( 2.5G 内存 + AMD 双核 1.7G )

呵呵，以此测试结果， 根据有没有 采用 GetInputState API 的 DoEvents 时间差很大噢~~