Question

易语言编写一个进度条窗口运行完成后延迟2秒弹出信息框，怎么写？

.版本 2
.支持库 spec

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

.如果真 (进度条1.位置 ＜ 100)
标签1.标题 ＝ “正在连接”
进度条1.位置 ＝ 进度条1.位置 ＋ 5
.如果真结束
标签1.标题 ＝ “充值Q币完成”
延迟 (2000)
信息框 (“充值成功”, 0, “提示”)

Answer 1

.版本 2

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

.如果 (进度条1.位置 ＜ 100)
标签1.标题 ＝ “正在连接”
进度条1.位置 ＝ 进度条1.位置 ＋ 5
.否则
时钟1.时钟周期 ＝ 0
标签1.标题 ＝ “充值Q币完成”
延迟 (2000)
信息框 (“充值成功”, 0, “提示”)
.如果结束

Answer 2

.版本 2

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

.如果真 (进度条1.位置 ＜ 100)
标签1.标题 ＝ “正在连接”
进度条1.位置 ＝ 进度条1.位置 ＋ 5
.如果真结束
.如果真 (进度条1.位置 ＝>=100)
标签1.标题 ＝ “充值Q币完成”
延迟 (2000)
信息框 (“充值成功”, 0, “提示”)
.如果真结束