超级列表框载入图片，选择并在ps打开

孤叶数码影像

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
图片组句柄	整数型

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

变量名	类 型	静态	数组	备 注
文件名	文本型
图像索引	整数型
表项索引	整数型
起始时间	整数型
数目	整数型
位图句柄	整数型

超级列表框1.全部删除 ()
如果真 (图片组句柄 ≠ 0)
ImageList_Destroy (图片组句柄)

起始时间 ＝ 取启动时间 ()
图片组句柄 ＝ ImageList_Create (64, 64, 32, 0, 0) ' 创建 64*64 图片组，32位色深
SendMessageA (超级列表框1.取窗口句柄 (), #LVM_SETIMAGELIST, 0, 图片组句柄) ' 设置图片组到超级列表框
文件名 ＝ 寻找文件 (编辑框_路径.内容 ＋ “\*.*”, )
判断循环首 (文件名 ≠ “”)
数目 ＝ 数目 ＋ 1
位图句柄 ＝ 取图像缩略图 (编辑框_路径.内容 ＋ “\” ＋ 文件名, 64, 64)
图像索引 ＝ ImageList_Add (图片组句柄, 位图句柄, 0) ' 把位图添加到图片组
DeleteObject (位图句柄) ' 销毁位图
表项索引 ＝ 超级列表框1.插入表项 (, 文件名, 图像索引, , , )
' 超级列表框1.保证显示 (表项索引)
' 处理事件 ()
文件名 ＝ 寻找文件 (, )
判断循环尾 ()
标签_时间.标题 ＝ “显示时间:” ＋ 到文本 ( (取启动时间 () － 起始时间) ÷ 1000) ＋ “秒”
标签_数目.标题 ＝ “数目:” ＋ 到文本 (数目)

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

开启图片组扩展功能 ()

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

关闭图片组扩展功能 ()

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

变量名	类 型	静态	数组	备 注
目录	文本型

目录 ＝ 浏览文件夹 (“选择目录：”, )
如果真 (目录 ≠ “”)
编辑框_路径.内容 ＝ 目录

子程序名	返回值类型	公开	备 注
_超级列表框1_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

如果真 (超级列表框1.现行选中项 ≠ -1)

i支持库列表	支持库注释
iext	扩展界面支持库一
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 图片组句柄, 整数型<br /> <br /> .子程序 _按钮_显示_被单击<br /> .局部变量 文件名, 文本型<br /> .局部变量 图像索引, 整数型<br /> .局部变量 表项索引, 整数型<br /> .局部变量 起始时间, 整数型<br /> .局部变量 数目, 整数型<br /> .局部变量 位图句柄, 整数型<br /> <br /> 超级列表框1.全部删除 ()<br /> .如果真 (图片组句柄 ≠ 0)<br /> ImageList_Destroy (图片组句柄)<br /> .如果真结束<br /> <br /> 起始时间 ＝ 取启动时间 ()<br /> 图片组句柄 ＝ ImageList_Create (64, 64, 32, 0, 0) ' 创建 64*64 图片组，32位色深<br /> SendMessageA (超级列表框1.取窗口句柄 (), #LVM_SETIMAGELIST, 0, 图片组句柄) ' 设置图片组到超级列表框<br /> 文件名 ＝ 寻找文件 (编辑框_路径.内容 ＋ “\*.*”, )<br /> .判断循环首 (文件名 ≠ “”)<br /> 数目 ＝ 数目 ＋ 1<br /> 位图句柄 ＝ 取图像缩略图 (编辑框_路径.内容 ＋ “\” ＋ 文件名, 64, 64)<br /> 图像索引 ＝ ImageList_Add (图片组句柄, 位图句柄, 0) ' 把位图添加到图片组<br /> DeleteObject (位图句柄) ' 销毁位图<br /> 表项索引 ＝ 超级列表框1.插入表项 (, 文件名, 图像索引, , , )<br /> ' 超级列表框1.保证显示 (表项索引)<br /> ' 处理事件 ()<br /> 文件名 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> 标签_时间.标题 ＝ “显示时间:” ＋ 到文本 ((取启动时间 () － 起始时间) ÷ 1000) ＋ “秒”<br /> 标签_数目.标题 ＝ “数目:” ＋ 到文本 (数目)<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 开启图片组扩展功能 ()<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 关闭图片组扩展功能 ()<br /> <br /> <br /> .子程序 _按钮_浏览_被单击<br /> .局部变量 目录, 文本型<br /> <br /> 目录 ＝ 浏览文件夹 (“选择目录：”, )<br /> .如果真 (目录 ≠ “”)<br /> 编辑框_路径.内容 ＝ 目录<br /> .如果真结束<br /> <br /> <br /> .子程序 _超级列表框1_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> <br /> .如果真 (超级列表框1.现行选中项 ≠ -1)<br /> .如果真结束

zengyongtao

参考借鉴下

duanyijun

学习一下  谢谢分享

qwaszxasas

前排 前排 前排 前排 前排

nothiagg

学习了，谢谢分享。

948699364

图像已经变形了，能否正常比例显示？

忧郁之子

学习了，谢谢分享。

GZfate

前排一个