1个回答
展开全部
需要一个列表框 一个按钮 一个播放器
====================================================================
.版本 2
.支持库 shell
.支持库 wmp9
.子程序 __启动窗口_创建完毕
按钮1.标题 = “读入文件”
.子程序 _按钮1_被单击
.局部变量 寻, 文本型
.局部变量 目录, 文本型
目录 = 浏览文件夹 (“请选择MP3文件目录”, )
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 = 目录 + “\”
.如果真结束
寻 = 寻找文件 (目录 + “*.mp3”, #存档文件)
.判断循环首 (寻 ≠ “”)
.如果真 (寻 ≠ “.” 且 寻 ≠ “..”)
列表框1.插入项目 (0, 目录 + 寻, )
.如果真结束
寻 = 寻找文件 (, #存档文件)
.判断循环尾 ()
.子程序 _列表框1_双击选择
播放器1.地址 = 列表框1.取项目文本 (列表框1.现行选中项)
.子程序 _播放器1_播放状态被改变
.参数 新的状态, 整数型
.判断开始 (新的状态 = 1)
播放器1.地址 = 列表框1.取项目文本 (列表框1.现行选中项 + 1)
.默认
.判断结束
====================================================================
.版本 2
.支持库 shell
.支持库 wmp9
.子程序 __启动窗口_创建完毕
按钮1.标题 = “读入文件”
.子程序 _按钮1_被单击
.局部变量 寻, 文本型
.局部变量 目录, 文本型
目录 = 浏览文件夹 (“请选择MP3文件目录”, )
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 = 目录 + “\”
.如果真结束
寻 = 寻找文件 (目录 + “*.mp3”, #存档文件)
.判断循环首 (寻 ≠ “”)
.如果真 (寻 ≠ “.” 且 寻 ≠ “..”)
列表框1.插入项目 (0, 目录 + 寻, )
.如果真结束
寻 = 寻找文件 (, #存档文件)
.判断循环尾 ()
.子程序 _列表框1_双击选择
播放器1.地址 = 列表框1.取项目文本 (列表框1.现行选中项)
.子程序 _播放器1_播放状态被改变
.参数 新的状态, 整数型
.判断开始 (新的状态 = 1)
播放器1.地址 = 列表框1.取项目文本 (列表框1.现行选中项 + 1)
.默认
.判断结束
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询