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

xuexi622 · 发表于 2010-8-22 21:39:49

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

wqejnyt · 发表于 2010-8-22 21:39:50

本帖最后由 wqejnyt 于 2010-8-23 02:26 编辑

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

[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]