易语言超级列表框(取程序图标,点击图标打开程序)

给你(高悬赏)如果分不够。就加分!谢谢~... 给你(高悬赏)如果分不够。就加分!谢谢~ 展开
 我来答
CHENPENGJUDY
2012-04-23 · TA获得超过533个赞
知道小有建树答主
回答量:705
采纳率:0%
帮助的人:672万
展开全部
自己优化一下吧,这个是没上面大问题了。

.版本 2
.支持库 iext2
.支持库 iext
.支持库 shell

.程序集 窗口程序集1
.程序集变量 数组, 文本型, , "0"
.程序集变量 配置路径, 文本型

.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型
.局部变量 temp, 文本型
.局部变量 图片组, 字节集
.局部变量 file, 文本型

配置路径 = 取运行目录 () + “\data.ini”
.如果真 (文件是否存在 (配置路径) = 假)
写配置项 (配置路径, “USER”, , )
.如果真结束
按钮1.标题 = “添加程序”
图片组 = 建空图片组 (32, 32)
temp = “进入循环”
.判断循环首 (temp ≠ “”)
i = i + 1
temp = 读配置项 (配置路径, “USER”, 到文本 (i), )
.如果真 (temp ≠ “”)
加入成员 (数组, temp)
提取加入图片 (图片组, temp, 0, 假)
.如果真结束

.判断循环尾 ()
超级列表框1.图片组 = 图片组
.计次循环首 (取数组成员数 (数组), i)
file = 取文件名 (数组 [i])
超级列表框1.插入表项 (i - 1, file, i - 1, , , )
.计次循环尾 ()

.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 temp, 文本型

通用对话框1.过滤器 = “(*.exe)|*.exe”
.如果真 (通用对话框1.打开 () = 假)
信息框 (“请选择正确路径!”, 0, )
返回 ()
.如果真结束
temp = “进入循环”
.判断循环首 (temp ≠ “”)
i = i + 1
temp = 读配置项 (配置路径, “USER”, 到文本 (i), )
.如果真 (temp = “”)
写配置项 (配置路径, “USER”, 到文本 (i), 通用对话框1.文件名)
.如果真结束

.判断循环尾 ()
清除数组 (数组)
超级列表框1.全部删除 ()
__启动窗口_创建完毕 ()

.子程序 取文件名, 文本型
.参数 文件名, 文本型
.局部变量 temp, 文本型, , "0"
.局部变量 test, 文本型, , "0"

temp = 分割文本 (文件名, “\”, )
test = 分割文本 (temp [取数组成员数 (temp)], “.”, )
返回 (test [1])

.子程序 _超级列表框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.如果真 (超级列表框1.现行选中项 ≠ 1)
执行 (, 数组 [超级列表框1.现行选中项 + 1], , , )
AiPPT
2024-09-19 广告
随着AI技术的飞速发展,如今市面上涌现了许多实用易操作的AI生成工具1、简介:AiPPT: 这款AI工具智能理解用户输入的主题,提供“AI智能生成”和“导入本地大纲”的选项,生成的PPT内容丰富多样,可自由编辑和添加元素,图表类型包括柱状图... 点击进入详情页
本回答由AiPPT提供
LOVE小灰灰LOVE
2012-04-23 · 超过33用户采纳过TA的回答
知道答主
回答量:135
采纳率:0%
帮助的人:91.3万
展开全部
100分有木有 留邮箱
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
1002217709
2012-04-23 · TA获得超过2887个赞
知道大有可为答主
回答量:2459
采纳率:0%
帮助的人:1048万
展开全部
150分有木有?留下邮箱
追问
别贪了。。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 2条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式