mp3播放器 by TK QQ：86935367

.版本 2



.程序集 窗口程序集1



.子程序 _按钮_暂停_被单击



.如果 (全局变量_暂停或者继续)  ' 为真表示当前为暂停

    全局变量_暂停或者继续 ＝ 假  ' 按钮按下后改变为假，即继续，同时暂停播放

    暂停播放MP3 ()

    按钮_暂停.标题 ＝ “继续”

.否则

    全局变量_暂停或者继续 ＝ 真

    按钮_暂停.标题 ＝ “暂停”

    继续播放MP3 ()

.如果结束









.子程序 __启动窗口_创建完毕



全局变量_暂停或者继续 ＝ 真





.子程序 _按钮_浏览_被单击



.如果真 (通用对话框_浏览.打开 ())

    编辑框_浏览.内容 ＝ 通用对话框_浏览.文件名

.如果真结束





.子程序 _按钮_播放_被单击



.如果 (编辑框_浏览.内容 ＝ “”)

    信息框 (“请点击浏览添加MP3文件”, 0, “提示”)

    返回 ()

.否则



.如果结束

播放MP3 (, 编辑框_浏览.内容)





.子程序 _按钮_停止_被单击



停止播放 ()

　　感觉比较难办的就是暂停和播放的切换，要在一个按钮上实现，通过一个全局变量来实现的。

.版本 2



.全局变量 全局变量_暂停或者继续, 逻辑型, , , 用来标注是暂停还是继续,初始化为真，表示显示暂停 

　　

下载地址：http://files.cnblogs.com/tk091/MP3%E6%92%AD%E6%94%BE%E5%99%A8.zip