VB中DoEvents的注意事项

最新推荐文章于 2025-06-14 13:34:57 发布

原创最新推荐文章于 2025-06-14 13:34:57 发布 · 1.1k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vb #command #function #测试 #api #user

VB6 专栏收录该内容

7 篇文章

订阅专栏

本文介绍了一种使用DoEvents结合GetInputState的优化方法，在不影响应用响应性的同时显著提高循环效率。通过对比两种不同实现方式的运行时间，展示了该方法的有效性。

对与再大循环里加入 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 时间差很大噢~~