使用VB6写一个自定义的进度信息框窗口

之前有些项目是用Access完成的，当时为了给用户显示一些进度信息，自制了一个进度信息窗体，类似下图所示：

随着项目不断变迁，需要将进度信息按阶段及子进度进行显示，并且出于代码封装的需求，需要将其封装到一个dll文件中。最终完成的效果如下图：

调用该进度信息框的代码类似如下所示：

 1 Private Sub cmdCommand1_Click()
 2     Dim pb As New CProgressBar
 3     pb.AddStage "第一步", 10000
 4     pb.AddStage "第二步", 10000
 5     pb.AddStage "第三步", 10000
 6     pb.AddStage "第四步", 10000
 7     Do Until pb.IsComplated
 8         pb.StepOne
 9     Loop
10 End Sub

制作这个Dll，我使用的是VB6，因为考虑到可能在后续的Access项目或者VB6项目中使用，所以没有用VB.net或者Delphi来开发。完成这个项目我建立了1个解决方案，包括2个项目文件，一个是dll项目工程文件，其二是测试工程。

如上图1、2、3包含在dll项目工程中，4在测试工程中，注意要将测试工程设置为启动工程。

1、FProgressBar：进度条窗体模块，主要是界面元素设计，仅提供与界面相关的功能，如刷新显示内容的方法与函数，借鉴MVC概念里的View；

2、CLayoutHelper：窗体布局辅助器，主要为无边框窗体添加外边框、移动控制功能、添加关闭按钮等布局特性；

3、CProgressBar：进度条类模块，该类模块可以被测试工程访问，注意需要将其设置成MultiUse，该模块提供了所有进度条逻辑功能，借鉴MVC概念里的Control的概念；