Question

谁给我个易语言MP3播放器源码啊 要进度条和显示歌词和列表

Answer 1

.版本 2
.支持库 edroptarget
.支持库 eMMedia
.程序集 窗口程序集_启动窗口
.程序集变量 文件, 文本型
.程序集变量 类型, 整数型
.子程序 _播放按钮_被单击
播放MP3 (-1, 列表框1.取项目文本 (列表框1.现行选中项))
同步播放MP3 (列表框1.取项目文本 (列表框1.现行选中项), 0, 标签1, )
文件 ＝ 列表框1.取项目文本 (列表框1.现行选中项)
类型 ＝ _专辑图片_文件名取专辑图片类型 (文件)
_专辑图片_文件名取专辑图片_到图片框 (文件, 图片框1, 类型)
.子程序 _按钮1_被单击
通用对话框1.打开 ()
列表框1.加入项目 (通用对话框1.文件名, )
' ------------------------------------------------------------------------------------
' 打开对话框，然后在列表框中加入对话框中选择的文件
.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
进度条1.位置 ＝ 参数一
' ------------------------------------------------------------------------------------------------------
' 参数一是MP3的播放进度，进度条的位置将实时同步参数一
' ：)
.子程序 _暂停按钮_被单击
暂停播放MP3 ()
.子程序 _继续按钮_被单击
继续播放MP3 ()
.子程序 _时钟1_周期事件
.如果真 (取MP3播放状态 () ＝ 0)
_启动窗口.标题 ＝ “等待播放”
.如果真结束
.如果真 (取MP3播放状态 () ＝ -1)
_启动窗口.标题 ＝ “暂停” ＋ “ ” ＋ 到文本 (进度条1.位置) ＋ “%”
.如果真结束
.如果真 (取MP3播放状态 () ＝ 1)
_启动窗口.标题 ＝ 到文本 (“播放中” ＋ “ ” ＋ 到文本 (进度条1.位置) ＋ “%”)
.如果真结束
' ------------------------------------------------------------------------------------------------------------------------
' 每1毫秒都会检测上面“如果真”的代码，真的真将会执行代码
.子程序 __启动窗口_位置被改变
.如果真 (_启动窗口.位置 ＝ 2)
_启动窗口.可视 ＝ 假
置托盘图标 (#托盘, _启动窗口.标题)
.如果真结束
' -------------------------------------------------------------------------------------------------------------------------
' 如果窗口被最小化，将会看不到窗口，程序将会放到托盘里
.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型
.如果真 (操作类型 ＝ #单击左键)
_启动窗口.位置 ＝ 1
_启动窗口.可视 ＝ 真
.如果真结束
.如果真 (操作类型 ＝ #单击右键)
弹出托盘菜单 (托盘菜单)
.如果真结束
' -----------------------------------------------------------------------------------------------------------------
' 如果单击了左键，将会把窗口回复，可以看到窗口
' 如果单击了右键，将会弹出“托盘菜单”这个菜单
.子程序 _播放_被选择
播放MP3 (-1, 列表框1.取项目文本 (列表框1.现行选中项))
.子程序 _暂停_被选择
暂停播放MP3 ()
.子程序 _继续_被选择
继续播放MP3 ()
.子程序 _关闭_被选择
销毁 ()
.子程序 _恢复_被选择
_启动窗口.位置 ＝ 2
_启动窗口.可视 ＝ 真
.子程序 __启动窗口_创建完毕
.局部变量 左声道, 整数型
.局部变量 右声道, 整数型
拖放对象1.注册拖放控件 (取窗口句柄 ())
系统音量1.打开 (4)
滑块条1.最小位置 ＝ 系统音量1.取最小音量 ()
滑块条1.最大位置 ＝ 系统音量1.取最大音量 () ÷ 5
系统音量1.取音量 (左声道, 右声道)
滑块条1.位置 ＝ 左声道 ÷ 5
' -------------------------------------------------------------------------------------------------------------------------
' 来自这里 https://jingyan.baidu.com/article/0320e2c1db0a181b86507b61.html
' 注册那个命令是让窗口可以把文件拖放进来
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
列表框1.加入项目 (接收到的文件路径, )
' -----------------------------------------------------------------------------------------------------------------------------
' 把拖进来的文件加入到列表框里
.子程序 _图片框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
载入 (窗口1, _启动窗口, 真)
.子程序 _滑块条1_位置被改变
系统音量1.置音量 (滑块条1.位置 × 5, 滑块条1.位置 × 5)
' -------------------------------------------------------------------------------------------------------------
' 来自这里 https://jingyan.baidu.com/article/0320e2c1db0a181b86507b61.html

Answer 2

去易语言官方论坛，搜索源码很多的。

Answer 3

易不是有自带的吗 在新建里好好找一下 那个对于新手来说已经很强大了……

Answer 4

这个吗?nan难