首页 > 代码库 > 使用VB6写一个自定义的进度信息框窗口

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

<style></style>
一、起因说明

之前有些项目是用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     Loop10 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的概念;

未完待续

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