配置_音乐目录 =
读配置项 (取运行目录 () +
“\config.ini”,
“MusicPlayer”,
“Path”,
取运行目录 () +
“\Music”)九宫矩形.top =
取屏幕高度 () ÷ 2
九宫矩形.left =
取屏幕宽度 () ÷ 2
九宫矩形.right = 600
九宫矩形.bottom = 500
窗口句柄 =
取窗口句柄 ()置随机数种子 ()子程序_绘制界面 ()子程序_添加音乐 (配置_音乐目录
) 随机播放热键 =
注册热键 (_启动窗口.
取窗口句柄 (), 标签_热键标识.
取窗口句柄 (), 0,
#F3键 ) 子程序_播放音乐 (上首歌曲编号
)按钮
[2
].
可视 (假)按钮
[3
].
可视 (真)播放状态 = 媒体播放1.
取状态 ()
判断 (播放状态 = 3
)媒体播放1.
暂停 ()按钮
[2
].
可视 (假)按钮
[3
].
可视 (真)
热键_随机播放_被按下 ()
播放状态 = 媒体播放1.
取状态 ()
判断 (播放状态 = 1
)媒体播放1.
暂停 ()按钮
[3
].
可视 (假)按钮
[2
].
可视 (真)
按钮
[3
].
可视 (真)按钮
[2
].
可视 (假)
判断 (列表框.
取表项数 () = 0
)结束 ()
判断 (当前歌曲编号 ≥ 列表框.
取表项数 ())
子程序_播放音乐 (0
)按钮
[2
].
可视 (假)按钮
[3
].
可视 (真)
上首歌曲编号 = 当前歌曲编号
当前歌曲编号 = 当前歌曲编号 + 1
子程序_播放音乐 (当前歌曲编号
)按钮
[2
].
可视 (假)按钮
[3
].
可视 (真)
_启动窗口.位置 = 2