这种图片 应该使用超级列表框
你的取子目录 应该用 批量取中间   在取出结果里找下位置就可以了

exit11 发表于 2011-9-8 15:27

这种效果如何实现啊？ 刚看了下你写的图片框，只有一个，我想的是一张图片一个图片框，但是手动加得有几千个。。

[e]
.版本 2
.程序集 窗口程序集1
.程序集变量 路径, 文本型, , "0"
.程序集变量 当前位置, 整数型
.子程序 _按钮1_被单击
.局部变量 文件名, 文本型
.局部变量 x, 整数型
文件名 ＝ 寻找文件 (“D:\data\桌面\sgs\*.*”, )
.判断循环首 (文件名 ≠ “”)
    .如果真 (文件名 ≠ “”)
        加入成员 (路径, “D:\data\桌面\sgs\” ＋ 文件名)
    .如果真结束
    文件名 ＝ 寻找文件 (, )
.判断循环尾 ()

.子程序 _按钮2_被单击
.局部变量 x, 整数型
.局部变量 计次, 整数型
.判断开始 (当前位置 ＝ 0 或 当前位置 ＞ 取数组成员数 (路径))
    当前位置 ＝ 1
.默认
.判断结束
图片框1.图片 ＝ 读入文件 (路径 [当前位置])
当前位置 ＝ 当前位置 ＋ 1[/e]

.版本 2
.支持库 spec

.子程序 __启动窗口_创建完毕
.局部变量 xx, 文本型
.局部变量 a
.局部变量 b

xx ＝ “c:\sdfsd\9\123_1.kkk”
a ＝ 倒找文本 (xx, “\”, , 假)
调试输出 (取文本右边 (xx, 取文本长度 (xx) － a))  ' 带后缀

a ＝ 倒找文本 (xx, “.”, , 假)
b ＝ 倒找文本 (xx, “\”, a, 假)
调试输出 (取文本中间 (xx, b ＋ 1, a － b － 1))  ' 不带后缀
a ＝ 倒找文本 (xx, “\”, , 假)
b ＝ 倒找文本 (xx, “\”, a － 1, 假)
调试输出 (取文本中间 (xx, b ＋ 1, a － b － 1), b, a, b － a)  ' 所在目录

exit11 发表于 2011-9-8 13:54
得到的结果如 23555_1.gif ，如何只取出数字部分呢
将结果再取左边的就好了

/9/ 和 /10/ 这2个应该怎么取呢 ？
图片放到数组里了，但是图片框也只有一个啊。应该怎么将图片框循环出来啊。

得到的结果如 23555_1.gif ，如何只取出数字部分呢
将结果再取左边的就好了

将所有的图片路径存放到一个数组里，然后按指定顺序读到图片框