搜索MP3文件列表工具，单曲随机循环

.如果真 (列表框1.取项目数 () ＝ 0)
信息框 (“请导入或选择需要播放的文件”, 0 ＋ 4096, “”)
返回 ()
.如果真结束
.如果真 (寻找文本 (列表框1.取项目文本 (0), “.mp3”, , 真) ＝ -1)
信息框 (“仅支持MP3格式的音频文件!”, 0 ＋ 4096, )
列表框1.现行选中项 ＝ 0
返回 ()
.如果真结束
.如果 (按钮2.标题 ＝ “播放”)
.如果真 (组合框1.现行选中项 ＝ 1)
信息框 (“未选定需要循环播放的歌曲!”, 0 ＋ 4096, )
返回 ()
.如果真结束
.如果 (贞贞贞 ＝ 假)
标签6.标题 ＝ 文件_取MP3播放时间 (列表框1.取项目文本 (列表框1.现行选中项), 2)
.如果真 (列表框1.现行选中项 ≠ -1)
同步播放MP3 (列表框1.取项目文本 (列表框1.现行选中项), , 标签2, )
启动线程 (&标题显示播放歌曲, , )
启动线程 (&加入播放历史, , )
启动线程 (&存放滑块条需要的路径, , )
.如果真结束
启动线程 (&_时钟1_周期事件, , )
时钟1.时钟周期 ＝ 1000
按钮2.标题 ＝ “暂停”
.否则
启动线程 (&_时钟1_周期事件, , )