易语言进度条点击按钮后走到100后弹出信息框,进度条归零,然后再点击按钮,继续走到100后又弹出信息框。

2024-10-31 22:15:36
推荐回答(3个)
回答1:

无需时钟:
.版本 2
.支持库 EThread
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 a, 整数型
启动线程 (&子程序_新线程, , a)
.子程序 子程序_新线程
.判断循环首 (进度条1.位置 < 100)
进度条1.位置 = 进度条1.位置 + 1
延迟 (100)
.判断循环尾 ()
信息框 (“要弹出的信息”, 0, )
进度条1.位置 = 0

要时钟:
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
时钟1.时钟周期 = 100
.子程序 _时钟1_周期事件
进度条1.位置 = 进度条1.位置 + 1
.判断开始 (进度条1.位置 = 100)
信息框 (“要弹出的信息”, 0, )
进度条1.位置 = 0
时钟1.时钟周期 = 0
.默认
.判断结束

回答2:

版本2

子程序_按钮1_单击

进度条位置=进度条的位置+ 100

消息框(“要输入文字,0)
时钟1个时钟周期= 0

回答3:

进度条最大位置设置100 最小1 起始位置1
判断进度调位置=100
信息框(“到最大位置了”)
进度条.位置=1