【NO.0025】 易语言制作MP1播放器 (已结束)

骷髅

我写的是列表播放方式,上传图 片

xb492508113

{:3_221:}技术有限。我做不了

qw64889243

看看呵呵呵呵

mxd520aini

{:3_215:}哎哟你们真太有才了

皇城浪子

mp1是什么啊，是mp3吗

虚心求教zgw

一楼的那个好像不能用啊，我的下载点啊，亏了

wj101314

哦。都是网上找的，没有坛里做得好点的吗

337422309

呵呵！学习

Administrator

{:3_244:}终于试出来保存列表时为什么只保存一条了！
[e].版本 2
.程序集 窗口程序集1
.程序集变量 歌曲时间, 整数型
.子程序 __启动窗口_创建完毕
皮肤_加载皮肤 (5)
.如果真 (文件是否存在 (取运行目录 () ＋ “\list.dat”))
    读入列表 ()
.如果真结束

.子程序 _按钮_搜索_被单击
运行 (“C:\Program Files\Internet Explorer\IEXPLORE.EXE http://mp3.baidu.com/m?f=ms& ... =&rn=&word=” ＋ 编辑框_搜索.内容 ＋ “&lm=0”, 假, )

.子程序 _打开_被选择
.局部变量 i, 整数型
.局部变量 a, 文本型, , "0"
.局部变量 b, 文本型, , "0"
.局部变量 文件名, 文本型
a ＝ 多文件对话框 (“请选取MP3文件!”, “音乐文件(*.mp3)|*.mp3”, , , 假)
列表框_文件.清空 ()
.计次循环首 (取数组成员数 (a), i)
    写到文件 (取运行目录 () ＋ “\list.dat”, 到字节集 (a ))
    b ＝ 分割文本 (a , “\”, )
    文件名 ＝ b [取数组成员数 (b)]
    列表框_文件.加入项目 (文件名, )
.计次循环尾 ()
[/e]

这是之前的错的!
[e].版本 2
.程序集 窗口程序集1
.程序集变量 歌曲时间, 整数型
.子程序 __启动窗口_创建完毕
皮肤_加载皮肤 (5)
.如果真 (文件是否存在 (取运行目录 () ＋ “\list.dat”))
    读入列表 ()
.如果真结束

.子程序 _按钮_搜索_被单击
运行 (“C:\Program Files\Internet Explorer\IEXPLORE.EXE http://mp3.baidu.com/m?f=ms& ... =&rn=&word=” ＋ 编辑框_搜索.内容 ＋ “&lm=0”, 假, )

.子程序 _打开_被选择
.局部变量 i, 整数型
.局部变量 a, 文本型, , "0"
.局部变量 b, 文本型, , "0"
.局部变量 e, 文本型
.局部变量 文件名, 文本型
a ＝ 多文件对话框 (“请选取MP3文件!”, “音乐文件(*.mp3)|*.mp3”, , , 假)
列表框_文件.清空 ()
.计次循环首 (取数组成员数 (a), i)
    e ＝ e ＋ a ＋ “|”  ' 改这里
    b ＝ 分割文本 (a , “\”, )
    文件名 ＝ b [取数组成员数 (b)]
    列表框_文件.加入项目 (文件名, )
.计次循环尾 ()
写到文件 (取运行目录 () ＋ “\list.dat”, 到字节集 (e))  ' 和这里后成功了！
[/e]

sxm7245443

{:3_216:}支持