使用通用 VBA 访问表单进行多个报告进度显示

Question

我有几个报告/进程显示大量进度信息或显示少量我认为不值得创建输出文件的信息，我想避免使用一堆消息框。我创建了一个带有列表框的通用表单，目的是使用以下命令显示进度：

Forms(formName).lstMessages.AddItem "Status message"

问题是在子完成之前什么都不会显示，对于需要一分钟左右的报告，通用表单实际上会消失一小段时间。

没有抓住每个子/函数并将它们放入通用表单的 VBA 代码中，有什么方法可以“刷新”输出以便获得进度显示？或者有人对完成我想做的事情的另一种方法有建议吗？谢谢！

Answer 1

添加这一行：

DoEvents 

更改列表框内容后，更改可见。

不过，您需要注意 DoEvents 的作用：

Yields execution so that the operating system can process other events.

这可能会产生无法预料的副作用。例如。如果启动报告流程的按钮在流程运行时保持活动状态，则用户可以再次单击该按钮，这可能会造成严重破坏。因此，请务必在进程运行时禁用该按钮。

见https://msdn.microsoft.com/en-us/library/aa231254(v=vs.60).aspx