进度条演示源码

j23349 · 发表于 2013-3-17 19:50:09

本帖最后由 j23349 于 2013-3-17 19:54 编辑

.版本 2

.程序集窗口程序集1

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

标签1.宽度＝ 0 ' 进度条效果可以使用渐变颜色

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

时钟1.时钟周期＝ 50

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

进度条1.位置＝进度条1.位置＋ 1
.如果真 (进度条1.位置 ≥ 进度条1.最大位置) ' 不能写等于，因为进度条的位置可以超过进度条最大位置
时钟1.时钟周期＝ 0
.如果真结束

.如果 (标签1.宽度＜ 200)
标签1.宽度＝标签1.宽度＋ 2
标签1.标题＝到文本 (标签1.宽度 ÷ 2) ＋ “%”
.否则
时钟1.时钟周期＝ 0
.如果结束