取文件图标加入超级列表框

mirkang

求大佬指点一下，超级列表框根据文件路径提取图标然后加入超级列表框的问题，整的头大！！！！！！！ 效果图如下

  

执行SQL语句 (数据库句柄, “SET NAMES 'GBK'”)
执行SQL语句 (数据库句柄, 查询语句)
记录集句柄 ＝ 取记录集 (数据库句柄)
图片组 ＝ 建空图片组 (16, 16)
计次循环首 (取记录集行数 (记录集句柄), m)
排序 ＝ 排序 ＋ 1
读字段值 (记录集句柄, “soft name”, 软件名称)
读字段值 (记录集句柄, “version”, 系统版本)
读字段值 (记录集句柄, “date”, 发布日期)
读字段值 (记录集句柄, “path”, 软件路径)
提取加入图片 (图片组, 软件路径, 排序, )  ' 该处有异常，求指点
超级列表框3.图片组 ＝ 图片组
读字段值 (记录集句柄, “notes”, 软件说明)
索引 ＝ 超级列表框3.插入表项 (, , , , , )
超级列表框3.置标题 (索引, 0, 到文本 (排序))
超级列表框3.置图片 (索引, 1, 排序)  ' 此处有异常，求指点
超级列表框3.置标题 (索引, 1, 软件名称)
超级列表框3.置标题 (索引, 2, 系统版本)
超级列表框3.置标题 (索引, 3, 发布日期)
超级列表框3.置标题 (索引, 4, 软件路径)
超级列表框3.置标题 (索引, 7, 软件说明)
到下一行 (记录集句柄)
计次循环尾 ()
释放记录集 (记录集句柄)

i支持库列表	支持库注释
mysql	MySql支持库
iext2	扩展界面支持库二
iext	扩展界面支持库一

.版本 2<br /> .支持库 mysql<br /> .支持库 iext2<br /> .支持库 iext<br /> <br /> 执行SQL语句 (数据库句柄, “SET NAMES 'GBK'”)<br /> 执行SQL语句 (数据库句柄, 查询语句)<br /> 记录集句柄 ＝ 取记录集 (数据库句柄)<br /> 图片组 ＝ 建空图片组 (16, 16)<br /> .计次循环首 (取记录集行数 (记录集句柄), m)<br />     排序 ＝ 排序 ＋ 1<br />     读字段值 (记录集句柄, “soft name”, 软件名称)<br />     读字段值 (记录集句柄, “version”, 系统版本)<br />     读字段值 (记录集句柄, “date”, 发布日期)<br />     读字段值 (记录集句柄, “path”, 软件路径)<br /> <br />     提取加入图片 (图片组, 软件路径, 排序, )  ' 该处有异常，求指点<br />     超级列表框3.图片组 ＝ 图片组<br />     读字段值 (记录集句柄, “notes”, 软件说明)<br />     索引 ＝ 超级列表框3.插入表项 (, , , , , )<br />     超级列表框3.置标题 (索引, 0, 到文本 (排序))<br />     超级列表框3.置图片 (索引, 1, 排序)  ' 此处有异常，求指点<br /> <br />     超级列表框3.置标题 (索引, 1, 软件名称)<br />     超级列表框3.置标题 (索引, 2, 系统版本)<br />     超级列表框3.置标题 (索引, 3, 发布日期)<br />     超级列表框3.置标题 (索引, 4, 软件路径)<br />     超级列表框3.置标题 (索引, 7, 软件说明)<br />     到下一行 (记录集句柄)<br /> <br /> <br /> <br /> .计次循环尾 ()<br /> 释放记录集 (记录集句柄)

mirkang

求指点啊，没人知道吗？

mirkang

求助了，大佬们

gdwlwl

{:4_261:}

gdwlwl

菜鸟路过

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

.子程序 子程序3
.局部变量 索引, 整数型
.局部变量 序号, 整数型
.局部变量 图片组, 字节集
.局部变量 软件路径, 文本型
.局部变量 排序, 整数型

执行SQL语句 (数据库句柄, “SET NAMES 'GBK'”)
执行SQL语句 (数据库句柄, 查询语句)
记录集句柄 ＝ 取记录集 (数据库句柄)
图片组 ＝ 建空图片组 (16, 16)
.计次循环首 (取记录集行数 (记录集句柄), m)
    排序 ＝ 排序 ＋ 1
    读字段值 (记录集句柄, “soft name”, 软件名称)
    读字段值 (记录集句柄, “version”, 系统版本)
    读字段值 (记录集句柄, “date”, 发布日期)
    读字段值 (记录集句柄, “path”, 软件路径)

    序号 ＝ 提取加入图片 (图片组, 软件路径, , 真)  ' 该处有异常，求指点

    超级列表框3.图片组 ＝ 图片组
    读字段值 (记录集句柄, “notes”, 软件说明)
    索引 ＝ 超级列表框3.插入表项 (, , , , , )
    超级列表框3.置标题 (索引, 0, 到文本 (排序))
    超级列表框3.置图片 (索引, 1, 序号)  ' 此处有异常，求指点

    超级列表框3.置标题 (索引, 1, 软件名称)
    超级列表框3.置标题 (索引, 2, 系统版本)
    超级列表框3.置标题 (索引, 3, 发布日期)
    超级列表框3.置标题 (索引, 4, 软件路径)
    超级列表框3.置标题 (索引, 7, 软件说明)
    到下一行 (记录集句柄)



.计次循环尾 ()
释放记录集 (记录集句柄)

yingle

支持开源~！感谢分享

wsysyb

学习了666666