易语言怎么设置组合框下拉长度
2个回答
2018-03-13 · 知道合伙人互联网行家
关注
展开全部
一般是使用快照把进程显示出来的给你个参考.版本 2
.支持库 iext.子程序 列举进程, 逻辑型
.局部变量 进程快照, 整数型
.局部变量 临时, 整数型
.局部变量 进程名, 文本型
.局部变量 path, 文本型进程快照 = CreateToolhelp32Snapshot (15, 0)
.如果真 (进程快照 = 0)
信息框 (“创建进程快照失败”, 0, )
返回 (假)
.如果真结束
超级列表框1.全部删除 ()
进程数 = 0
进程列表.size = 296
临时 = Process32First (进程快照, 进程列表)
.判断循环首 (临时 ≠ 0)
path = 取模块路径 (进程列表.id)
.如果真 (path ≠ “” 且 进程列表.id ≠ 0)
超级列表框1.插入表项 (-1, 到文本 (OpenProcess (1, 0, 进程列表.id)), , , , )
超级列表框1.置标题 (超级列表框1.取表项数 () - 1, 1, path)
.如果真结束
临时 = Process32Next (进程快照, 进程列表)
.判断循环尾 ()
返回 (真)
希望采纳!
.支持库 iext.子程序 列举进程, 逻辑型
.局部变量 进程快照, 整数型
.局部变量 临时, 整数型
.局部变量 进程名, 文本型
.局部变量 path, 文本型进程快照 = CreateToolhelp32Snapshot (15, 0)
.如果真 (进程快照 = 0)
信息框 (“创建进程快照失败”, 0, )
返回 (假)
.如果真结束
超级列表框1.全部删除 ()
进程数 = 0
进程列表.size = 296
临时 = Process32First (进程快照, 进程列表)
.判断循环首 (临时 ≠ 0)
path = 取模块路径 (进程列表.id)
.如果真 (path ≠ “” 且 进程列表.id ≠ 0)
超级列表框1.插入表项 (-1, 到文本 (OpenProcess (1, 0, 进程列表.id)), , , , )
超级列表框1.置标题 (超级列表框1.取表项数 () - 1, 1, path)
.如果真结束
临时 = Process32Next (进程快照, 进程列表)
.判断循环尾 ()
返回 (真)
希望采纳!
追问
代码不完整,看不懂...
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询