精易论坛

标题: 一天进步一点点，在原有的程序上美化，这次添加模拟进度条 [打印本页]

作者: 616681966 时间: 2017-3-31 01:17
标题: 一天进步一点点，在原有的程序上美化，这次添加模拟进度条
.版本 2
.支持库 eAPI
.程序集窗口程序集_启动窗口
.程序集变量 s, 进程信息, , "0"
.子程序 _按钮1_被单击
.局部变量 i, 整数型, , , 计次变量
.局部变量百分比, 整数型
s ＝取系统进程列表 ()
百分比＝取数组成员数 (s) ÷ 100 × 100
时钟1.时钟周期＝百分比  ' 这里由取得的数组个数百分比来控制sz的周期
延时 (1000)
.如果 (标签4.宽度＝ 200)  ' 判断宽度是否=200，如果成立让宽度返回0
标签4.宽度＝ 0
.否则
.如果结束

.子程序 _列表框1_双击选择
.局部变量 x, 整数型
.局部变量 z, 整数型
z ＝列表框1.现行选中项
x ＝信息框 (“是否结束：” ＋列表框1.取项目文本 (z) ＋ “进程”, 1, , )
.如果 (x ＝ 0)
终止进程 (列表框1.取项目文本 (z))
列表框1.清空 ()
延时 (1000)
_按钮1_被单击 ()
.否则
.如果结束

.子程序 _列表框1_鼠标右键被按下, 逻辑型
.参数横向位置, 整数型
.参数纵向位置, 整数型
.参数功能键状态, 整数型
列表框1.清空 ()
延时 (1000)
_按钮1_被单击 ()

.子程序 _时钟1_周期事件
.局部变量 i, 整数型
标签4.宽度＝标签4.宽度＋ 8
.如果 (标签4.宽度＞ 199)
列表框1.插入项目 (0, “当前系统进程列表数” ＋到文本 (取数组成员数 (s)), )  ' 这里有个知识点插入位置0必须要有数据
.计次循环首 (取数组成员数 (s), i)
      列表框1.插入项目 (1, s [i].进程名称, )  ' 这里有个知识点插入位置前面必须要有数据，否则这里会失败
.计次循环尾 ()
时钟1.时钟周期＝ 0  ' 让sz停止运行

.否则
.如果结束

作者: 何康康 时间: 2017-3-31 01:55
.she加载

作者: 福仔 时间: 2017-3-31 01:57
成员数 / 100 * 100 不知道有什么意义

作者: 616681966 时间: 2017-3-31 02:12

福仔发表于 2017-3-31 01:57
成员数 / 100 * 100 不知道有什么意义

忘记改回来了。本来是1000

作者: rdbd29r 时间: 2017-3-31 07:07
很好的，学习学习

作者: zhu25123 时间: 2017-3-31 08:23
学习了!!!!!!!!!!

作者: xiao8180 时间: 2017-3-31 10:29

作者: 桐桐 时间: 2017-3-31 10:41

作者: thm421 时间: 2017-3-31 11:56

作者: GZfate 时间: 2017-3-31 18:58

作者: zsdg 时间: 2017-4-1 21:55
谢谢，，，有用

作者: ULTRAYAN 时间: 2017-4-3 15:32
感谢楼主热心分享！

欢迎光临精易论坛 (https://125.confly.eu.org/)