进度条的问题，高手来

fox

我想设置一个进度条，一个按钮，当点击按钮时，进度条才开始滚动，否则不动，怎么实现呀？

fctafzy

回复 1# fox



.版本 2
.支持库 iext
.支持库 spec

.程序集 窗口程序集2

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

写到文件 (取运行目录 () ＋ “\SkinH_EL.dll”, #dll)
写到文件 (取运行目录 () ＋ “\skinh.she”, #skinh)
SkinH_Attach_Ex (取运行目录 () ＋ “\skinh.she”, “”)

.子程序 __启动窗口_可否被关闭, 逻辑型

删除文件 (取运行目录 () ＋ “\skinh.she”)
删除文件 (取运行目录 () ＋ “\SkinH_EL.dll”)


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

时钟1.时钟周期 ＝ 200  ' 这里是20毫秒

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

进度条1.位置 ＝ 进度条1.位置 ＋ 5  ' 这里等会看效果就知道啦
透明标签1.标题 ＝ 到文本 (进度条1.位置) ＋ “%”
.判断开始 (进度条1.位置 ≥ 100)  ' 这里就是让进度条到100然后就停止啦 延长就是然大家看 那个最后的数字！
    时钟1.时钟周期 ＝ 0  ' 停止进度条继续相加
    延迟 (1000)  ' 延长1秒用于观看
    删除文件 (“C:\WINDOWS\system32\TesSafe.sys”)
    信息框 (“非法免重启修复完毕    不是全部系统都支持”, 0, )
    销毁 ()
.默认

.判断结束

看看 这个   对你 有帮助 么

fctafzy

.版本 2
.支持库 iext
.支持库 spec

.程序集 窗口程序集2

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

写到文件 (取运行目录 () ＋ “\SkinH_EL.dll”, #dll)
写到文件 (取运行目录 () ＋ “\skinh.she”, #skinh)
SkinH_Attach_Ex (取运行目录 () ＋ “\skinh.she”, “”)

.子程序 __启动窗口_可否被关闭, 逻辑型

删除文件 (取运行目录 () ＋ “\skinh.she”)
删除文件 (取运行目录 () ＋ “\SkinH_EL.dll”)


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

时钟1.时钟周期 ＝ 200  ' 这里是20毫秒

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

进度条1.位置 ＝ 进度条1.位置 ＋ 5  ' 这里等会看效果就知道啦
透明标签1.标题 ＝ 到文本 (进度条1.位置) ＋ “%”
.判断开始 (进度条1.位置 ≥ 100)  ' 这里就是让进度条到100然后就停止啦 延长就是然大家看 那个最后的数字！
    时钟1.时钟周期 ＝ 0  ' 停止进度条继续相加
    延迟 (1000)  ' 延长1秒用于观看
    删除文件 (“C:\WINDOWS\system32\TesSafe.sys”)
    信息框 (“非法免重启修复完毕    不是全部系统都支持”, 0, )
    销毁 ()
.默认

.判断结束

原田夜舞

哈哈，来给你个简单的
.版本 2
.支持库 spec

.判断循环首 (进度条1.位置 ≠ 进度条1.最大位置)
    进度条1.位置 ＝ 进度条1.位置 ＋ 1
    延迟 (100)
.判断循环尾 ()