2个回答
展开全部
给你一个我写的例程代码:
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击
.如果真 (通用对话框1.打开 () 且 列表框1.选择 (通用对话框1.文件名) = -1)
列表框1.加入项目 (通用对话框1.文件名, )
.如果真结束
.子程序 _按钮2_被单击
.如果真 (列表框1.现行选中项 ≠ -1)
列表框1.删除项目 (列表框1.现行选中项)
.如果真结束
.子程序 _按钮3_被单击
_列表框1_双击选择 ()
.子程序 _按钮4_被单击
停止播放 ()
.子程序 _列表框1_双击选择
同步播放MP3 (列表框1.取项目文本 (列表框1.现行选中项), 0, 标签1, )
.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.如果真 (参数一 = 100 且 列表框1.现行选中项 < 列表框1.取项目数 () - 1) ' 播放结束
列表框1.现行选中项 = 列表框1.现行选中项 + 1
_列表框1_双击选择 ()
.如果真结束
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击
.如果真 (通用对话框1.打开 () 且 列表框1.选择 (通用对话框1.文件名) = -1)
列表框1.加入项目 (通用对话框1.文件名, )
.如果真结束
.子程序 _按钮2_被单击
.如果真 (列表框1.现行选中项 ≠ -1)
列表框1.删除项目 (列表框1.现行选中项)
.如果真结束
.子程序 _按钮3_被单击
_列表框1_双击选择 ()
.子程序 _按钮4_被单击
停止播放 ()
.子程序 _列表框1_双击选择
同步播放MP3 (列表框1.取项目文本 (列表框1.现行选中项), 0, 标签1, )
.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.如果真 (参数一 = 100 且 列表框1.现行选中项 < 列表框1.取项目数 () - 1) ' 播放结束
列表框1.现行选中项 = 列表框1.现行选中项 + 1
_列表框1_双击选择 ()
.如果真结束
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询