VB DoEvents 语句的API升级版

最新推荐文章于 2022-03-28 11:04:39 发布

原创最新推荐文章于 2022-03-28 11:04:39 发布 · 227 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#VB

vb 专栏收录该内容

90 篇文章

订阅专栏

本文介绍了一种在VBA中通过自定义DoEvents函数实现循环效率优化的方法。通过对系统输入状态的检查，避免了不必要的DoEvents调用，从而提高了程序运行速度。文章详细解释了GetInputState及cGetInputState函数的实现原理及其如何提升循环效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Public Declare Function GetInputState Lib "user32" () As Long

Public Sub newDoEvents() '这个是比较简单,功能较少
If GetInputState() <> 0 then DoEvents
End Sub

'------------------------
Public Const QS_HOTKEY = &H80
Public Const QS_KEY = &H1
Public Const QS_MOUSEBUTTON = &H4
Public Const QS_MOUSEMOVE = &H2
Public Const QS_PAINT = &H20
Public Const QS_POSTMESSAGE = &H8
Public Const QS_SENDMESSAGE = &H40
Public Const QS_TIMER = &H10
Public Const QS_ALLINPUT = (QS_SENDMESSAGE Or QS_PAINT Or QS_TIMER Or QS_POSTMESSAGE Or QS_MOUSEBUTTON Or QS_MOUSEMOVE Or QS_HOTKEY Or QS_KEY)
Public Const QS_MOUSE = (QS_MOUSEMOVE Or QS_MOUSEBUTTON)
Public Const QS_INPUT = (QS_MOUSE Or QS_KEY)
Public Const QS_ALLEVENTS = (QS_INPUT Or QS_POSTMESSAGE Or QS_TIMER Or QS_PAINT Or QS_HOTKEY)
Public Declare Function GetQueueStatus Lib "user32" (ByVal qsFlags As Long) As Long

Public Function cGetInputState() '这个可以按自己的要求定义,接收到什么消息才DoEvents
Dim qsRet As Long
qsRet = GetQueueStatus(QS_HOTKEY Or QS_KEY Or QS_MOUSEBUTTON Or QS_PAINT)
if qsRet<>0 then DoEvents
End Function
'有了上面2个函数就不怕影响循环中的运算效率了
'它可以让你的程序循环速度比使用 DoEvents 更快