如何解决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
有关更多详细信息,请参见以下其他答案:
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。