新手进度条求助~

fylwb

为什么我的这个代码不能显示进度条？？？

ReoE

fylwb 发表于 2017-3-18 23:37
还是不行，帮我瞧瞧啊~

你好，我刚刚认真看了一下你的源码，有测试了一下，发现是之前理解的不对。你这个进度条不是用来显示文件复制进度的，而是显示文件复制成功个数的。还发现一个就是，当第一个窗口选择完文件之后，第二个复制窗口就应该载入了才对。而你这个程序，是复制窗口里的计次循环都结束了，这个窗口才出现。也就是说，不单单是进度条不出现的问题了，而是窗口都没出现。
所以我想了一个解决的办法，当然我也是新人，也许有更好的办法，说实话我也不知道为什么加个处理事件()没用。我先说一下我自己的办法吧，一家之言。
就是先想办法让复制窗口载入，我记得觅风的视频里说进度条的时候用的是时钟，于是我就加了个时钟，再把你的循环放到时钟的周期事件里。这样先让复制窗口载入，创建完毕之后，给时钟一个时钟周期，随便多少（500ms吧）。这样复制窗口就载入了，之后再在循环里依次复制，进度条就可以达到效果了。当然别忘了复制完毕之后让时钟的时钟周期归零。
亲测可以，没有gif cam，这是我修改后的。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_复制

子程序名	返回值类型	公开	备 注
_复制_创建完毕

时钟1.时钟周期 ＝ 500

子程序名	返回值类型	公开	备 注
取文件名	文本型
参数名	类 型	参考	可空	数组	备 注
目标	文本型

返回 (取文本中间 (目标, 倒找文本 (目标, “\”, , 假) ＋ 1, 取文本长度 (目标) － 倒找文本 (目标, “\”, , 假)))

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
计次	整数型
目标	文本型

目标 ＝ “d:\”
计次循环首 (取数组成员数 (全局变量), 计次)
复制文件 (全局变量 [计次], 目标 ＋ 取文件名 (全局变量 [计次]))
进度条1.位置 ＝ 计次 ÷ 取数组成员数 (全局变量) × 100
如果真 (取数组成员数 (全局变量) ＝ 计次)
时钟1.时钟周期 ＝ 0

计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集_复制<br /> <br /> .子程序 _复制_创建完毕<br /> <br /> 时钟1.时钟周期 ＝ 500<br /> <br /> <br /> .子程序 取文件名, 文本型<br /> .参数 目标, 文本型<br /> <br /> <br /> 返回 (取文本中间 (目标, 倒找文本 (目标, “\”, , 假) ＋ 1, 取文本长度 (目标) － 倒找文本 (目标, “\”, , 假)))<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 计次, 整数型<br /> .局部变量 目标, 文本型<br /> <br /> 目标 ＝ “d:\”<br /> <br /> .计次循环首 (取数组成员数 (全局变量), 计次)<br />     复制文件 (全局变量 [计次], 目标 ＋ 取文件名 (全局变量 [计次]))<br /> <br />     进度条1.位置 ＝ 计次 ÷ 取数组成员数 (全局变量) × 100<br />     .如果真 (取数组成员数 (全局变量) ＝ 计次)<br />         时钟1.时钟周期 ＝ 0<br />     .如果真结束<br /> <br /> .计次循环尾 ()

待删用户

没毛病。。

fylwb

你多选点文件，我这基本都快拷完，才出进度条~

fylwb

小太子奶 发表于 2017-3-18 21:07
没毛病。。

你多选几个文件试试，我这个就不行，快结束了才弹出来进度条窗口
ps.哥们，你这个抓图的怎么搞的？

羊羽子

fylwb 发表于 2017-3-18 21:28
你多选几个文件试试，我这个就不行，快结束了才弹出来进度条窗口
ps.哥们，你这个抓图的怎么搞的？

循环中加处理事件，，

ReoE

加个处理事件()看看。

fylwb

加在哪啊？

ReoE

fylwb 发表于 2017-3-18 21:32
加在哪啊？

加到循环尾前面。

待删用户

fylwb 发表于 2017-3-18 21:28
你多选几个文件试试，我这个就不行，快结束了才弹出来进度条窗口
ps.哥们，你这个抓图的怎么搞的？

GIF cam ，录制来看看，多选我这面也正常