持续进度栏

Question

使用VB6

我想在代码运行时显示连续进度条。

进度条应该继续运行。编码过程完成后，进度应该是不可见的。

如何为持续进度条创建代码

需要VB6代码帮助

Answer 1

如果你连续运行代码，这很棘手，因为VB6是单线程的。

我自己尝试过这样做（设置带有彩色背景的标签控件的宽度），但GUI往往不会重新绘制。我最终将工作分成几个部分，并在每个部分的末尾调用DoEvents。 GUI更新相当粗糙。

在VB6中有多种方法可以运行多个线程 - 但是它们需要非常小心地处理 - 从那里你可以在一个线程中运行代码并在另一个线程中更新GUI。

Answer 2

传统上我们使用动画控制不是吗？我不确定，但我认为它运行在自己的线程上。然后是WebBrowser控件，可以使用“chromeless”显示动画GIF。

甚至可以使用Windows Movie Maker将动画GIF转换为AVI，尽管它在这方面可能有局限性。好像你可以很容易地制作理发杆，“Cylon's Eye”，落下小精灵灰尘的列，或者如果沙漏光标不够好你想要的任何其他“我很忙”指示器。

Cody Gray的大帐篷风格ProgressBar虽然是一个很好的建议。