用基本组件的标签制作进度条
.版本 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里也差不多:) 都大同小异，只是英文改中文了。
页:
[1]