Question

易语言如何按钮单击后进度条滚动

不要只走1下的，要点击后一直走完，而且不要重复

Answer 1

下图右键 - 图片另存为 -

右键 - 打开方式 - 选择程序 - WinRAR 压缩文档管理器 - 确定

Answer 2

.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 i, 整数型

i ＝ 1
.计次循环首 (100, i) ' 100是进度条目标位置，当完成率为100%的时候，等于进度条最大位置，请查看进度条属性设置中最大位置数值,也可以设置成你希望的位置，比如进度条最大位置为100，想在50%的时候自动停止，可以设置成50.
进度条1.位置 ＝ i
延迟 (50) ' 进度条变化速度，数值越大，进度条完成时间越长
.计次循环尾 ()

直接复制代码就可以了

另外你还可以给进度条加入透明标签，以显示进度位置：
【透明标签.标题=到文本（i）+“%”】
此段代码插入到【进度条1.位置=i】后面即可！

另外说下，我这有份进度条代码，可以在进度条运行过程中暂停，继续运行，运行中进行重置，是我自己写的，需要的话可以联系我！

Answer 3

.版本 2

.程序集 窗口程序集1
.程序集变量 cd, 小数型
.程序集变量 方向, 文本型

.子程序 __启动窗口_创建完毕

方向 ＝ “左”
画板2.字体 ＝ 标签2.字体
cd ＝ 画板2.取高度 (“A”) ÷ 2

.子程序 _时钟1_周期事件

.如果 (标签1.左边 ＝ 0)
方向 ＝ “右”
.否则
.如果 (标签1.左边 ＋ 标签1.宽度 ＝ 画板1.宽度)
方向 ＝ “左”
.否则

.如果结束

.如果结束
.如果 (方向 ＝ “左”)
标签1.左边 ＝ 标签1.左边 － 1
.否则
标签1.左边 ＝ 标签1.左边 ＋ 1
.如果结束

.子程序 _按钮1_被单击

.如果真 (通用对话框1.打开 ())
标签2.标题 ＝ 到文本 (读入文件 (通用对话框1.文件名))
标签2.宽度 ＝ 取文本长度 (标签2.标题) × cd
标签2.左边 ＝ 画板2.宽度
时钟2.时钟周期 ＝ 10

.如果真结束

.子程序 _时钟2_周期事件

.如果 (标签2.左边 ＋ 标签2.宽度 ＝ 0)
标签2.左边 ＝ 画板2.宽度
.否则

.如果结束
标签2.左边 ＝ 标签2.左边 － 1
必须添加完这些组件。不会Q我39714954QQ

Answer 4

你加个时钟就 OK
.版本 2

.子程序 __启动窗口_创建完毕

时钟1.时钟周期 ＝ 50

.子程序 _时钟1_周期事件

.如果 (进度条1.位置 ＜ 进度条1.最大位置)
进度条1.位置 ＝ 进度条1.位置 ＋ 1
.否则
时钟1.时钟周期 ＝ 0
.如果结束

Answer 5

代码：
.版本 2
.支持库 spec

进度条1.可视 ＝ 真 ' 进度条的可以看见
.判断循环首 (进度条1.位置 ≤ 进度条1.最大位置) ' 对进度条编程
进度条1.位置 ＝ 进度条1.位置 ＋ 1 ' 依次增加进度条的位置
延迟 (40) ' 这里是进度条滚动时间
处理事件 () ' 运行事件
.判断循环尾 ()

如果你要按钮点完走，就双击按钮，把↑复制进去

就是这样..如果LZ还想做什么提示..例如进度条走完了出一个提示
你可以在 .判断循环尾 () 回车 然后写信息框
望采纳