主题：[分享]简单实用的易表窗口动态进度条！

egd文件下载

       根据 tzszw 兄的源文件和 CZY 版主的帮助公式，对文件窗口增加简单实用，但又足以以假乱真的进度条功能！

RAR文件下载

       进一步优化方法，更加形象逼真，参见窗口中的方法二！

注：解压到任意路径，打开ab.egd文件即可！

RAR文件下载

     本楼文件小于500行，非企业版朋友到本楼下载！

没事瞎琢磨， tzszw 兄过奖了！

[%A%],表达式变量，公式：RecalcRow(Grid,Row,Row,1)计算当前表的当前行

[%D%],表达式变量：Move(Row+1,col)And SetLabel("进度条",Rept("█",Row / Rows / 2 * 50))And SetLabel("进度二",Text(Round(Row / Rows,2) * 100) + "%")将输入焦点跳转到下一行的当前列，并同时改变“进度条”标签的显示内容为：重复字符“█”为当前行数除以总行数再除以2（当前字符为全角字符，占2个英文字符的位置）然后除以该标签欲显示的总字符数（英文字符数），同时改变标签“进度二”的显示内容为：当前行的行数除以总行数的百分比值！

Eval(Mid(Rept(" And [%A%] And [%D%]",rows) ,5)对每一行执行[%A%] And [%D%]的计算操作，直到最后一行！

     至于Eval()函数的高级用法，请到论坛的应用技巧里面学习，本人也不太熟练，正在学习中，一时解释不太明白，抱歉！

to
    zfwwlq您的短信收到，那个进度条是易语言编写的，已经生成.exe可执行程序，反编译，我修改不了，您看看这个帖子，我帮您顶上来了，这是易表设计的，也许，加以修改就可以集成到您的系统中！

呵呵，现给您改编了一个，您不是喜欢进度忙提示吗？易表一样能做到，大家可以试用一下，让您的系统真正“忙”起来，还可以继续改编进度条图片背景，标签的文字大小，继续美化，可别忘了分享哦！

          RAR文件下载

           这真正是易表本身的功能实现的，您还可以把那个动态改变标签显示文字的公式设在刷新公式(或者放到操作公式中，但可能影响速度)，重算刷新公式的时候就会显示进度！

     呵呵，侵犯老兄的版权了

      经过反复测试，采用刷新公式方案和使用计算命令方案的耗时几乎一样，只是在打开文件首次进行对比运算的时候两者有3%左右的误差，刷新公式大多数时候显得稍慢，没有太大区别，而在刷新公式中设置比在计算命令中设置，大多数时候公式相对简单多了，进度显示也比较科学、合理，而采用定时器方案在系统忙的时候，定时器会处于暂停状态，不能及时刷新进度显示！

         RAR文件下载

       呵呵，改变标签的显示文字对速度影响不大，这是论坛czy总版主为tzszw兄做的流水帐方式的计算，没有进度条功能的时候速度本来就如此，如果将该功能结合到其他文件里面，速度会很快的，进度条的显示速度会随文件的计算速度增减，应该说具有灵活性、科学性、合理性于一体，您不妨去掉进度条功能，测试一下就知道了！

[这个贴子最后由程兴刚在 2008/02/28 02:27pm 第 1 次编辑]

结合28楼提出的问题，采用刷新公式方案，单独执行了DO(393)命令，同样的数据，速度提高差不多10倍，但对于本文件，最终数据结果不一定正确，本示例只测试进度条的使用对速度的影响，请参考测试文件！

       RAR文件下载

          刚发现出现函数嵌套问题，重新上传！