获取任意文件图标加入超级列表框图片组开源。
局部_图象列表句柄 ＝ 取文件信息_ (接收到的文件路径, 0, 局部_文件信息, 352, 16384)
图像列表_绘画_ (局部_图象列表句柄, 局部_文件信息.图标索引, 程序集_设备场景, 1, 1, 1)
' 图像列表_绘画扩展_ (局部_图象列表句柄, 局部_文件信息.图标索引, 程序集_设备场景, 32, 1, 32, 32, -1, -16777216, 4)
' -------------超级列表框图片组加入图片------------
图片号 ＝ 加入图片 (图片组, 画板1.取图片 (20, 20), )
超级列表框1.图片组 ＝ 图片组
超级列表框1.保证显示 (超级列表框1.插入表项 (, 接收到的文件路径, 图片号, , , ))
.如果 (文件大小转换 (取文件大小_夹 (接收到的文件路径)) ＝ “0Byte”)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 文件大小转换 (取文件尺寸 (接收到的文件路径)))
.否则
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 文件大小转换 (取文件大小_夹 (接收到的文件路径)))
上一篇 图片裁切小程序
下一篇 语音识别软件，文本转语音