复制出来超级列表框图片组用程序赋值为什么显示不了图片

fengyepiaolingx

.版本 2
.支持库 iext3
.支持库 iext
.支持库 edroptarget
.支持库 iext2
.支持库 spec

.子程序 __启动窗口_创建完毕
.局部变量 wjgs, 整数型, , , 文件个数
.局部变量 lswjmcd, 整数型, , , 临时文件名长度
.局部变量 lswjm, 文本型, , , 临时文件名
.局部变量 wjlx, 文本型, , , 文件类型’0=文件夹；1=文本文档；2=“exe”文件
.局部变量 lbm, 文本型, , , 类别名
.局部变量 lswjh, 整数型, , , 临时文件号
.局部变量 n1, 整数型

置托盘图标 (#tptb, )
' 设置窗口透明度 (_启动窗口.取窗口句柄 (), 200)
' 设置窗口透明度 (高级选择夹1.取窗口句柄 (), 200)
HXWZ ＝ 3
ZXWZ ＝ 3
标签1.左边 ＝ HXWZ
标签1.顶边 ＝ ZXWZ
标签1.高度 ＝ 25 － ZXWZ
标签1.宽度 ＝ _启动窗口.宽度 － HXWZ － HXWZ
高级选择夹1.左边 ＝ HXWZ
高级选择夹1.顶边 ＝ 25
高级选择夹1.高度 ＝ _启动窗口.高度 － 25 － ZXWZ
高级选择夹1.宽度 ＝ _启动窗口.宽度 － HXWZ － HXWZ
超级列表框0.左边 ＝ 0
超级列表框0.顶边 ＝ 22
超级列表框0.高度 ＝ _启动窗口.高度 － 25 － ZXWZ － 22
超级列表框0.宽度 ＝ _启动窗口.宽度 － HXWZ － HXWZ
拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())
.如果真 (文件是否存在 (“C:\Users\xuwen\Desktop\软件分类”) ＝ 假)
    创建目录 (“C:\Users\xuwen\Desktop\软件分类”)
.如果真结束
.如果真 (文件是否存在 (“C:\Users\xuwen\Desktop\软件分类\文件名.txt”) ＝ 假)
    lswjh ＝ 打开文件 (“C:\Users\xuwen\Desktop\软件分类\文件名.txt”, 4, )
    写出文本 (lswjh, “0”)
    关闭文件 (lswjh)
.如果真结束
.如果真 (文件是否存在 (“C:\Users\xuwen\Desktop\软件分类\文件位置与配置.ini”) ＝ 假)
    写配置项 (“C:\Users\xuwen\Desktop\软件分类\文件位置与配置.ini”, “文件地址”, “此电脑”, “::{20D04FE0-3AEA-1069-A2D8-08002B30309D}”)
    写配置项 (“C:\Users\xuwen\Desktop\软件分类\文件位置与配置.ini”, “文件地址”, “控制面板”, “::{21EC2020-3AEA-1069-A2DD-08002B30309D}”)
    写配置项 (“C:\Users\xuwen\Desktop\软件分类\文件位置与配置.ini”, “文件地址”, “回收站”, “::{645FF040-5081-101B-9F08-00AA002F954E}”)
    写配置项 (“C:\Users\xuwen\Desktop\软件分类\文件位置与配置.ini”, “配置”, “子夹数”, “1”)
.如果真结束
tpz ＝ 建空图片组 (32, 32)    ’ tpz=图片组
lstpz ＝ 建空图片组 (32, 32)
加入图片 (tpz, #此电脑, )
加入图片 (tpz, #控制面板, )
加入图片 (tpz, #回收站, )
超级列表框0.图片组 ＝ tpz
高级选择夹1.现行子夹 ＝ 0
超级列表框0.插入表项 (, “此电脑”, 0, , , )
超级列表框0.插入表项 (, “控制面板”, 1, , , )
超级列表框0.插入表项 (, “回收站”, 2, , , )
drwjh ＝ 打开文件 (“C:\Users\xuwen\Desktop\软件分类\文件名.txt”, #读入, )

sywjm ＝ 读入文本 (drwjh, )     
azjfg ＝ 分割文本 (sywjm, #换行符, )
abxfg ＝ 分割文本 (azjfg [1], “|”, )
wjgs ＝ 取数组成员数 (abxfg) － 1
.如果真 (wjgs ＞ 0)
    .计次循环首 (wjgs, n)
        lswjm ＝ abxfg [n ＋ 1]
        lswjmcd ＝ 取文本长度 (lswjm)
        wjlx ＝ 取文本左边 (lswjm, 1)
        wjm ＝ 取文本右边 (lswjm, lswjmcd － 1)
        .如果真 (wjlx ＝ “0”)
            加入图片 (tpz, #文件夹, )
            超级列表框0.图片组 ＝ tpz
            超级列表框0.插入表项 (, wjm, 图片索引 (0, 0), , , )
        .如果真结束
        .如果真 (wjlx ＝ “1”)
            加入图片 (tpz, #文本, )
            超级列表框0.图片组 ＝ tpz
            超级列表框0.插入表项 (, wjm, 图片索引 (0, 0), , , )
        .如果真结束
        .如果真 (wjlx ＝ “2”)
            wjlj ＝ 读配置项 (“C:\Users\xuwen\Desktop\软件分类\文件位置与配置.ini”, “文件地址”, wjm, )
            tpztp ＝ 取图片组图片 (lstpz, 提取加入图片 (lstpz, wjlj, , ), )
            加入图片 (tpz, tpztp, )
            超级列表框0.图片组 ＝ tpz
            超级列表框0.插入表项 (, wjm, 图片索引 (0, 0), , , )
        .如果真结束

    .计次循环尾 ()
.如果真结束
zjsm ＝ 到整数 (读配置项 (“C:\Users\xuwen\Desktop\软件分类\文件位置与配置.ini”, “配置”, “子夹数”, ))
.如果真 (zjsm ＞ 1)
    .计次循环首 (zjsm － 1, n)
        lbm ＝ 读配置项 (“C:\Users\xuwen\Desktop\软件分类\文件位置与配置.ini”, “类别名”, “子夹” ＋ 到文本 (n), )
        高级选择夹1.加入子夹 (lbm, , , , )
        复制窗口组件 (_启动窗口.超级列表框0, cjlbk [n])
        cjlbk [n].左边 ＝ 0     ‘cjlbk【n】是超级列表框数组
        cjlbk [n].顶边 ＝ 22
        cjlbk [n].高度 ＝ _启动窗口.高度 － 25 － ZXWZ － 22
        cjlbk [n].宽度 ＝ _启动窗口.宽度 － HXWZ － HXWZ
        abxfg ＝ 分割文本 (azjfg [n ＋ 1], “|”, )
        wjgs ＝ 取数组成员数 (abxfg) － 1
        .如果真 (wjgs ＞ 0)
            .计次循环首 (wjgs, n1)

                lswjm ＝ abxfg [n1 ＋ 1]
                lswjmcd ＝ 取文本长度 (lswjm)
                wjlx ＝ 取文本左边 (lswjm, 1)
                wjm ＝ 取文本右边 (lswjm, lswjmcd － 1)
                .如果真 (wjlx ＝ “0”)
                    加入图片 (tpz, #文件夹, )
                    超级列表框0.图片组 ＝ tpz
                    cjlbk [n].插入表项 (, wjm, 图片索引 (n, 0), , , )
                .如果真结束
                .如果真 (wjlx ＝ “1”)
                    加入图片 (tpz, #文本, )
                    超级列表框0.图片组 ＝ tpz
                    cjlbk [n].插入表项 (, wjm, 图片索引 (n, 0), , , )
                .如果真结束
                .如果真 (wjlx ＝ “2”)
                    wjlj ＝ 读配置项 (“C:\Users\xuwen\Desktop\软件分类\文件位置与配置.ini”, “文件地址”, wjm, )

                    tpztp ＝ 取图片组图片 (lstpz, 提取加入图片 (lstpz, wjlj, , ), )
                    加入图片 (tpz, tpztp, )
                    超级列表框0.图片组 ＝ tpz
                    调试输出 (取图片组图片数 (超级列表框0.图片组))
                    cjlbk [1].插入表项 (, wjm, 2, , , )
                .如果真结束



            .计次循环尾 ()
        .如果真结束

    .计次循环尾 ()

汉族

类型，还有图片组

fengyepiaolingx

汉族 发表于 2016-5-8 18:17
类型，还有图片组

怎么了  我好像没错啊   我如果不用程序赋值的话这个程序应该是没问题的  我用小程序测试过了

fengyepiaolingx

汉族 发表于 2016-5-8 18:17
类型，还有图片组

.版本 2
.支持库 iext

.全局变量 HXWZ, 整数型, , , 鼠标横向位置
.全局变量 ZXWZ, 整数型, , , 鼠标纵向位置
.全局变量 n, 整数型, , , 循环次数
.全局变量 zjsm, 整数型, , , 子夹数目
.全局变量 cjlbk, 超级列表框, , "19", 超级列表框
.全局变量 tpz, 字节集, , , 图片组
.全局变量 lstpz, 字节集, , , 临时图片组
.全局变量 wjm, 文本型, , , 文件名
.全局变量 tpztp, 字节集, , , 图片组图片
.全局变量 xxzj, 整数型, , , 现行子夹
.全局变量 bxwz, 整数型, , , 表项位置
.全局变量 drwjh, 整数型, , , 读入文件号
.全局变量 cxwjh, 整数型, , , 重写文件号
.全局变量 sywjm, 文本型, , , 所有文件名
.全局变量 azjfg, 文本型, , "0", 文件名按子夹分割
.全局变量 abxfg, 文本型, , "0", 文件名按表项分割
.全局变量 tpsy, 整数型, , , 图片索引


这是我的全局变量

fengyepiaolingx

fengyepiaolingx 发表于 2016-5-8 18:31
.版本 2
.支持库 iext

我自己已解决  源码在附件

k18556

11111111111111111111111