VB6轮询与计时器事件

问题描述

我的应用程序的外部进程每个都轮询一个布尔值以查看是否有工作要做。我现在想在Timer事件中检查该变量，以减少“无响应”消息。

必须将Timer对象放置在窗体上，这似乎会造成一些限制。

使用Me.Show（vbModal）从表单启动事件非常有用。只有我不想真正显示该表单，我只想使用计时器。尝试使用Me.Hide隐藏表单，然后失去了我需要的Modal行为，所以这不是一个好的解决方法。

我尝试从类中启动事件，但是它表现出与Me.Hide相同的有害行为：处理返回给调用者，而不是停留在timer event子中等待工作。

是否有任何方法可以实现基于Timer的事件，而该事件不需要显示表单并且不立即返回给调用者？外部进程没有屏幕IO和不需要。

解决方法

您可以使用Windows API中的SetTimer函数进行研究。在模块和用户TimerStart中以毫秒为间隔添加以下代码：

Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long,ByVal nIDEvent As Long,ByVal uElapse As Long,ByVal lpTimerFunc As Long) As Long

Public Function TimerStart(ByVal p_lngInterval As Long) As Long
    
    ' Start timer
    TimerStart = SetTimer(0,p_lngInterval,AddressOf TimerCallBack)

End Function

Public Sub TimerCallBack(ByVal hwnd As Long,ByVal uMsg As Long,ByVal idEvent As Long,ByVal dwTime As Long)
    
    ' Handle your polling here

End Sub

您不需要表格，因此它可以满足您的需求。

您还可以结合使用Windows API中的Sleep和Timer来保持EXE的运行：

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub Main()

    TimerStart 2000
    
    Do While True
        DoEvents
        Sleep 1000
    Loop
    
End Sub

有关更多详细信息，请参见以下其他答案：

• How to make safe API Timers in VBA?
• How do I delay code execution in Visual Basic (VB6)?