在没有DoEvents的VB6.0中取消长时间运行的过程?
发布时间:2020-12-16 23:55:59 所属栏目:大数据 来源:网络整理
导读:是否可以在VB6.0中取消长时间运行的进程,而不使用DoEvent? 例如: for i = 1 to someVeryHighNumber ' Do some work here ' ... if cancel then exit for end ifnextSub btnCancel_Click() cancel = trueEnd Sub 我假设我需要一个“DoEvents”之前的“如果
是否可以在VB6.0中取消长时间运行的进程,而不使用DoEvent?
例如: for i = 1 to someVeryHighNumber ' Do some work here ' ... if cancel then exit for end if next Sub btnCancel_Click() cancel = true End Sub 我假设我需要一个“DoEvents”之前的“如果取消然后…”有更好的方法吗?有一阵子了…
不,你说得对,你肯定想要你的循环中的DoEvents。
如果将DoEvents放在主循环中,发现处理速度太慢,请尝试调用Windows API函数GetQueueStatus(这比DoEvents快得多)来快速确定是否有必要调用DoEvents。 GetQueueStatus告诉你是否有任何事件要处理。 ' at the top: Declare Function GetQueueStatus Lib "user32" (ByVal qsFlags As Long) As Long ' then call this instead of DoEvents: Sub DoEventsIfNecessary() If GetQueueStatus(255) <> 0 Then DoEvents End Sub (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |