一天进步一点点，在原有的程序上美化，这次添加模拟进度条

616681966

.版本 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停止运行

.否则
.如果结束

ULTRAYAN

感谢楼主热心分享！

zsdg

谢谢，，，有用

GZfate

thm421

桐桐

xiao8180

zhu25123

学习了!!!!!!!!!!

rdbd29r

很好的，学习学习

616681966

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

忘记改回来了。本来是1000