如何给程序加一个进度条

执行过程中出现一个进度 bar，其中一个作为进度 bar的边框，另一个用来填充实体。控制代码添加在VBA 程序内，进度 bar的显示状态为第一，可以画个进度，根据情况用鼠标，第二，你可以做一张桌子，1.第一排是你的每进度的情况。2.第一列是每个项目的名称，3.所以你有一个矩阵，可以把完成的/12344，如果未完成的进度留空，则可以轻松显示清楚的进度情况，无需其他软件。用word自己完成就行了。

先自己做一个进度，然后套用这个代码。注意，添加进度 bar一般会降低你的运行速度userform 1。用用户表单1显示0。进度条1。最小1。马克西。正在滚动0。值I 您周期值用户。

新建一个用户表单，设置合适的大小，添加两个标签label，其中一个作为进度的边框，另一个用于填充实体。在VBA 程序中添加控制代码，当程序开始运行时，调用用户表单。进度 bar的显示状态，如果程序 bar在循环中，可以根据循环次数设置进度 bar的变化状态，需要用DoEvents释放对进度 bar的控制权来刷新显示。

添加小部件“Microsoft Windows Common Controls 6.0(SP6)”，在表单中添加1个按钮、1个标签控件、1个定时器控件和1 进度控件。代码如下:private子命令1 _ click()定时器1。enabledtrueendsubprivatesubform _ load()。with progress bar 1 . max 60 . min 0 . value 0 endwithtimer 1 . interval 1000 timer 1 . enabledfalseendsubprivatebitimer 1 _ timer()progress bar 1 . value 1 if progress bar 1 . value 100 thenlabel 1 . caption完成timer1.enabledfalseendifendsub

自己写替代函数比较容易。，FSize！DimF1%，F2 % dims array()as bytedimbuffasinteconstbufsize 1024 buff 1024 F1 free(F1)BTestFSizeLOF(F2)redims array(BUFSIZE)as bytedoifbtest 30 then wait 0 Pb 1。value 0 unloadmeelsepb 1 . value PB1 . value 1 endifendsub .

newJButton(请点击此处)。AddActionListener(NewActionListener(){ publicfoidactionperformed(ActionEvent){ System。out.println(你点了这个按钮！);}});//一个按钮事件。

create window(PROGRESS _ CLASS，NULL，WS_VISIBLE|WS_CHILD|PBS_SMOOTH，20，370，370，30，hwnd，(HMENU)200，((LPCREATESTRUCT)lParam)> h instance，NULL)；相关消息PBM_GETPOS获取当前位置，PBM_SETPOS设置当前位置并重新绘制。

不知道有没有可能把进度显示成一排字符，比如|||||||||||？% ||||||||||||使用VBA控制字符输出。尝试StatusBar属性。最好在状态栏显示进度。首先，使用绘图工具栏中的直线并在画布外部单击，绘制一条线进度根据情况使用鼠标，可以移动。第二，做一个表。第一，第一行是你们每个人进度的情况。第二，第一列是每个项目的名称。第三，就是这样。可以将已完成的进度用颜色填写，未完成的进度留空，这样进度的清晰情况就很容易显示出来，而且不需要其他软件，自己用word就可以完成。

这样可以吗？for i1 double(fs)progress bar 1 . max 100 progress bar 1 . value(100 \ ubound(fs))* istartprocenext。添加小部件Microsoft Windows Common Controls 5.0(SP2)，然后将进度 control拖动到form: Load 插入这三行来初始化进度control:progress bar 1，min1progressbar1。maxubound (fs) progressbar1，1双绑定(fs) startprociprograssbar1的值1。价值1。