用基本组件的标签制作进度条

阿杰

.版本 2
.支持库 EThread
.支持库 spec
.子程序 __启动窗口_创建完毕
启动线程 (&子程序1, , )
.子程序 子程序1
.局部变量 n1, 整数型
.判断循环首 (取文本中间 (标签1.标题, 1, 2) ＝ “□”)
    标签1.标题 ＝ 文本替换 (标签1.标题, 取文本长度 (标签1.标题) － 1, 2, “□”)
    标签1.标题 ＝ 文本替换 (标签1.标题, 1, 2, “■”)
    延迟 (200)
    .计次循环首 (取文本长度 (标签1.标题) ÷ 2 － 1, n1)
        标签1.标题 ＝ 文本替换 (标签1.标题, (n1 － 1) × 2 ＋ 1, 2, “□”)
        标签1.标题 ＝ 文本替换 (标签1.标题, n1 × 2 ＋ 1, 2, “■”)
        延迟 (200)
    .计次循环尾 ()
.判断循环尾 ()

马大哈

VB里也差不多

阿杰

都大同小异，只是英文改中文了。