导入文件夹下的图片到超级列表框中

hycody

欢迎常来帮助新人，谢谢。

1339615306

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程句柄	整数型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

启动线程 (&导入图片, , 线程句柄)

子程序名	返回值类型	公开	备 注
导入图片

变量名	类 型	静态	数组	备 注
文件名	文本型
图片索引	整数型
i	整数型
索引	整数型
图片组	字节集

图片组 ＝ 建空图片组 (800, 600)
文件名 ＝ 寻找文件 (取运行目录 () ＋ “\示例图片\*.jpg”, )
判断循环首 (文件名 ≠ “”)
图片索引 ＝ 加入图片 (图片组, 读入文件 (取运行目录 () ＋ “\示例图片\” ＋ 文件名), #白色 )
文件名 ＝ 寻找文件 (, )
判断循环尾 ()
超级列表框1.图片组 ＝ 图片组
计次循环首 (图片索引 ＋ 1, i)
超级列表框1.插入表项 (, , i － 1, , , )
计次循环尾 ()

子程序名	返回值类型	公开	备 注
__启动窗口_可否被关闭	逻辑型

关闭线程句柄 (线程句柄)

i支持库列表	支持库注释
EThread	多线程支持库
iext2	扩展界面支持库二
iext	扩展界面支持库一

.版本 2<br /> .支持库 EThread<br /> .支持库 iext2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程句柄, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&导入图片, , 线程句柄)<br /> <br /> <br /> .子程序 导入图片<br /> .局部变量 文件名, 文本型<br /> .局部变量 图片索引, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 图片组, 字节集<br /> <br /> 图片组 ＝ 建空图片组 (800, 600)<br /> 文件名 ＝ 寻找文件 (取运行目录 () ＋ “\示例图片\*.jpg”, )<br /> .判断循环首 (文件名 ≠ “”)<br />     图片索引 ＝ 加入图片 (图片组, 读入文件 (取运行目录 () ＋ “\示例图片\” ＋ 文件名), #白色)<br />     文件名 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> 超级列表框1.图片组 ＝ 图片组<br /> .计次循环首 (图片索引 ＋ 1, i)<br />     超级列表框1.插入表项 (, , i － 1, , , )<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 __启动窗口_可否被关闭, 逻辑型<br /> <br /> 关闭线程句柄 (线程句柄)

1339615306

du321 发表于 2016-8-26 02:50
没问题是因为你选择的是相同大小的图片，而且你这个图片大的话很容易卡死！源码没线程是故意卡！当然小图 ...

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程句柄	整数型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

启动线程 (&导入图片, , 线程句柄)

子程序名	返回值类型	公开	备 注
导入图片

变量名	类 型	静态	数组	备 注
文件名	文本型
图片索引	整数型
i	整数型
索引	整数型
图片组	字节集

图片组 ＝ 建空图片组 (800, 600)
文件名 ＝ 寻找文件 (取运行目录 () ＋ “\示例图片\*.jpg”, )
判断循环首 (文件名 ≠ “”)
图片索引 ＝ 加入图片 (图片组, 读入文件 (取运行目录 () ＋ “\示例图片\” ＋ 文件名), #白色 )
文件名 ＝ 寻找文件 (, )
判断循环尾 ()
超级列表框1.图片组 ＝ 图片组
计次循环首 (图片索引 ＋ 1, i)
超级列表框1.插入表项 (, , i － 1, , , )
计次循环尾 ()

子程序名	返回值类型	公开	备 注
__启动窗口_可否被关闭	逻辑型

关闭线程句柄 (线程句柄)

i支持库列表	支持库注释
EThread	多线程支持库
iext2	扩展界面支持库二
iext	扩展界面支持库一

.版本 2<br /> .支持库 EThread<br /> .支持库 iext2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程句柄, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&导入图片, , 线程句柄)<br /> <br /> <br /> .子程序 导入图片<br /> .局部变量 文件名, 文本型<br /> .局部变量 图片索引, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 图片组, 字节集<br /> <br /> 图片组 ＝ 建空图片组 (800, 600)<br /> 文件名 ＝ 寻找文件 (取运行目录 () ＋ “\示例图片\*.jpg”, )<br /> .判断循环首 (文件名 ≠ “”)<br />     图片索引 ＝ 加入图片 (图片组, 读入文件 (取运行目录 () ＋ “\示例图片\” ＋ 文件名), #白色)<br />     文件名 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> 超级列表框1.图片组 ＝ 图片组<br /> .计次循环首 (图片索引 ＋ 1, i)<br />     超级列表框1.插入表项 (, , i － 1, , , )<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 __启动窗口_可否被关闭, 逻辑型<br /> <br /> 关闭线程句柄 (线程句柄)

1339615306

du321 发表于 2016-8-26 02:50
没问题是因为你选择的是相同大小的图片，而且你这个图片大的话很容易卡死！源码没线程是故意卡！当然小图 ...

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程句柄	整数型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

启动线程 (&导入图片, , 线程句柄)

子程序名	返回值类型	公开	备 注
导入图片

变量名	类 型	静态	数组	备 注
文件名	文本型
图片索引	整数型
i	整数型
索引	整数型
图片组	字节集

图片组 ＝ 建空图片组 (800, 600)
文件名 ＝ 寻找文件 (取运行目录 () ＋ “\示例图片\*.jpg”, )
判断循环首 (文件名 ≠ “”)
图片索引 ＝ 加入图片 (图片组, 读入文件 (取运行目录 () ＋ “\示例图片\” ＋ 文件名), #白色 )
文件名 ＝ 寻找文件 (, )
判断循环尾 ()
超级列表框1.图片组 ＝ 图片组
计次循环首 (图片索引 ＋ 1, i)
超级列表框1.插入表项 (, , i － 1, , , )
计次循环尾 ()

子程序名	返回值类型	公开	备 注
__启动窗口_可否被关闭	逻辑型

关闭线程句柄 (线程句柄)

i支持库列表	支持库注释
EThread	多线程支持库
iext2	扩展界面支持库二
iext	扩展界面支持库一

.版本 2<br /> .支持库 EThread<br /> .支持库 iext2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程句柄, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&导入图片, , 线程句柄)<br /> <br /> <br /> .子程序 导入图片<br /> .局部变量 文件名, 文本型<br /> .局部变量 图片索引, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 图片组, 字节集<br /> <br /> 图片组 ＝ 建空图片组 (800, 600)<br /> 文件名 ＝ 寻找文件 (取运行目录 () ＋ “\示例图片\*.jpg”, )<br /> .判断循环首 (文件名 ≠ “”)<br />     图片索引 ＝ 加入图片 (图片组, 读入文件 (取运行目录 () ＋ “\示例图片\” ＋ 文件名), #白色)<br />     文件名 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> 超级列表框1.图片组 ＝ 图片组<br /> .计次循环首 (图片索引 ＋ 1, i)<br />     超级列表框1.插入表项 (, , i － 1, , , )<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 __启动窗口_可否被关闭, 逻辑型<br /> <br /> 关闭线程句柄 (线程句柄)

1339615306

du321 发表于 2016-8-26 02:50
没问题是因为你选择的是相同大小的图片，而且你这个图片大的话很容易卡死！源码没线程是故意卡！当然小图 ...

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程句柄	整数型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

启动线程 (&导入图片, , 线程句柄)

子程序名	返回值类型	公开	备 注
导入图片

变量名	类 型	静态	数组	备 注
文件名	文本型
图片索引	整数型
i	整数型
索引	整数型
图片组	字节集

图片组 ＝ 建空图片组 (800, 600)
文件名 ＝ 寻找文件 (取运行目录 () ＋ “\示例图片\*.jpg”, )
判断循环首 (文件名 ≠ “”)
图片索引 ＝ 加入图片 (图片组, 读入文件 (取运行目录 () ＋ “\示例图片\” ＋ 文件名), #白色 )
文件名 ＝ 寻找文件 (, )
判断循环尾 ()
超级列表框1.图片组 ＝ 图片组
计次循环首 (图片索引 ＋ 1, i)
超级列表框1.插入表项 (, , i － 1, , , )
计次循环尾 ()

子程序名	返回值类型	公开	备 注
__启动窗口_可否被关闭	逻辑型

关闭线程句柄 (线程句柄)

i支持库列表	支持库注释
EThread	多线程支持库
iext2	扩展界面支持库二
iext	扩展界面支持库一

.版本 2<br /> .支持库 EThread<br /> .支持库 iext2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程句柄, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&导入图片, , 线程句柄)<br /> <br /> <br /> .子程序 导入图片<br /> .局部变量 文件名, 文本型<br /> .局部变量 图片索引, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 图片组, 字节集<br /> <br /> 图片组 ＝ 建空图片组 (800, 600)<br /> 文件名 ＝ 寻找文件 (取运行目录 () ＋ “\示例图片\*.jpg”, )<br /> .判断循环首 (文件名 ≠ “”)<br />     图片索引 ＝ 加入图片 (图片组, 读入文件 (取运行目录 () ＋ “\示例图片\” ＋ 文件名), #白色)<br />     文件名 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> 超级列表框1.图片组 ＝ 图片组<br /> .计次循环首 (图片索引 ＋ 1, i)<br />     超级列表框1.插入表项 (, , i － 1, , , )<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 __启动窗口_可否被关闭, 逻辑型<br /> <br /> 关闭线程句柄 (线程句柄)

1339615306

du321 发表于 2016-8-26 02:50
没问题是因为你选择的是相同大小的图片，而且你这个图片大的话很容易卡死！源码没线程是故意卡！当然小图 ...

还请你做一个能显示大图，不卡的。

du321

1339615306 发表于 2016-8-26 00:07
@du321 显示大图并没有什么问题。

没问题是因为你选择的是相同大小的图片，而且你这个图片大的话很容易卡死！源码没线程是故意卡！当然小图标妥妥的

1339615306

@du321 显示大图并没有什么问题。

du321

源码没有技术含量，甚至不能正常展示大图片