谁可以帮我做这个程序 谢谢

xuexi622

单击打开图 片即可通过目录框寻找图 片选中图 片点加入就可以加入一个图 片数组里 然后点开始就能一张一张的循环播放 就是相册一样 谁可以帮忙提供小源码啊？？

wqejnyt

这个程序比较简单几分钟就可以搞定。我就帮你做了！
不过我还是建议楼主多动动手动动脑，卡在哪里了再去问别人卡住的那个步骤怎么解决！
这样就很快提升你的易编写水平了。光叫人家帮你写！那有什么用你只不过是改一下人家的代码！对你自己无益！


[e]
.版本 2
.支持库 jedi
.支持库 spec
.程序集 窗口程序集1
.程序集变量 集数组s, 文本型, , "0"
.子程序 __启动窗口_创建完毕
目录编辑框1.内容 ＝ “请选择图 片目录！”
.子程序 _按钮加入_被单击
.局部变量 a, 文本型
.局部变量 b, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 c, 文本型
a ＝ 寻找文件 (目录编辑框1.内容 ＋ “\” ＋ “*.jpg”, )
.如果真 (a ＝ “”)
    信息框 (“没有找到任务JPG格式的图 片！”, 0, )
    返回 ()
.如果真结束
.判断循环首 (a ≠ “”)
    c ＝ c ＋ a ＋ “|”
    a ＝ 寻找文件 (, )
.判断循环尾 ()
b ＝ 分割文本 (c, “|”, )
.计次循环首 (取数组成员数 (b), i)
    加入成员 (集数组s, 目录编辑框1.内容 ＋ “\” ＋ b )
.计次循环尾 ()
.如果 (集数组s [取数组成员数 (集数组s)] ＝ “”)
    信息框 (“加入图 片失败！”, 0, )
.否则
    信息框 (“加入图 片成功！”, 0, )
.如果结束

.子程序 _按钮显示_被单击
.判断开始 (选择框1.选中 ＝ 真)
    循环读图 ()
.默认
    读图 ()
.判断结束

.子程序 读图
.局部变量 i, 整数型

.计次循环首 (取数组成员数 (集数组s), i)
    图 片框1.图 片 ＝ {  }
    图 片框1.图 片 ＝ 读入文件 (集数组s )
    延迟 (1000)
.计次循环尾 ()
图 片框1.图 片 ＝ {  }
.子程序 循环读图
.局部变量 i, 整数型
.计次循环首 (取数组成员数 (集数组s), i)
    图 片框1.图 片 ＝ {  }
    图 片框1.图 片 ＝ 读入文件 (集数组s )
    延迟 (1000)
.计次循环尾 ()
图 片框1.图 片 ＝ {  }
循环读图 ()
[/e]

413611108

不清除 等待高手

sxm7245443

来看看！！！

z65390814

难难的。等待高人！

ccini

无聊~~~你自己研究研究就知道啦！

奥特曼

{:3_215:}金币少.....

1106791265

走人了
太少钱了没有心情

xuexi622

我觉得金币多少不是衡量一个答案的标准 你们想要很多的金币也行啊 能告诉我你们的编程水平有多高吗？？我就认为自己会 能把一个不会的人教会才是真正的会 但是你们如果是茶壶里煮的饺子 肚子里有 确倒不出来
最后感谢wqejnyt  给我的答案