HKPlayerX小型的音乐播放器源码

.子程序 _播放器1_打开状态被改变
.参数 新的状态, 整数型

.如果真 (是否已创建 (窗口2) ＝ 真)
窗口2.销毁 ()
.如果真结束
歌词程序 (去文件名后缀 (播放器1.地址) ＋ “.lrc”)
.如果 (取文本左边 (列表框1.取项目文本 (音乐位置), 5) ≠ “网络|”)
.如果真 (文件是否存在 (列表框1.取项目文本 (音乐位置)) ＝ 假)
音乐名称 ＝ “无效文件！重启程序后，将会自动删除！”
标签1.标题 ＝ 音乐名称
图形按钮1.正常图片 ＝ #开始图片正常
图形按钮1.点燃图片 ＝ #开始图片点燃
返回 ()
.如果真结束
.如果真 (新的状态 ≠ #打开状态.媒体被打开)
返回 ()
.如果真结束
音乐名称 ＝ 去文件名后缀 (取文件名 (播放器1.地址))
标签1.标题 ＝ 去文件名后缀 (取文件名 (播放器1.地址))
超级列表框1.保证显示 (音乐位置)
媒体 ＝ 播放器1.取当前媒体 ()
进度条1.最大位置 ＝ 到数值 (媒体.取项目信息 (“Duration”))
编辑框1.内容 ＝ “”
图形按钮1.正常图片 ＝ #暂停图片正常
图形按钮1.点燃图片 ＝ #暂停图片点燃
写配置项 (取运行目录 () ＋ “\配置.ini”, “配置”, “歌曲”, 到文本 (音乐位置))
.否则
音乐名称 ＝ 网络名称 (列表框1.取项目文本 (音乐位置))
标签1.标题 ＝ 网络名称 (列表框1.取项目文本 (音乐位置))
超级列表框1.保证显示 (音乐位置)
编辑框1.内容 ＝ “”
图形按钮1.正常图片 ＝ #暂停图片正常
图形按钮1.点燃图片 ＝ #暂停图片点燃
写配置项 (取运行目录 () ＋ “\配置.ini”, “配置”, “歌曲”, 到文本 (音乐位置))
.如果结束
' 输出调试文本 (取文本中间 (列表框1.取项目文本 (超级列表框1.现行选中项), 6, 倒找文本 (列表框1.取项目文本 (超级列表框1.现行选中项), “网络文件|”, , 真) － 6))