.版本 2
.支持库 wmp9
.支持库 shellEx
.支持库 xplib
.支持库 iext
.支持库 iext3
.支持库 iext2
.支持库 iext6
.支持库 shell
.程序集 启动窗口
.程序集变量 日期, 文本型
.程序集变量 时间, 文本型
.程序集变量 客户数, 整数型
.程序集变量 点播播放状态, 逻辑型, , , 点播变量
.程序集变量 目录信息, 文本型, , , 点播变量
.程序集变量 目录名, 文本型, , , 点播变量
.程序集变量 文件名, 文本型, , , 点播变量
.程序集变量 命令, 文本型, , , 点播变量
.程序集变量 点播计次, 整数型, , , 点播变量
.程序集变量 客户地址, 文本型, , , 点播变量
.程序集变量 歌曲名称, 文本型, , , 点播变量
.程序集变量 点播机号, 文本型, , , 点播变量
.程序集变量 控制, 播放器控制, , , 播放器
.程序集变量 媒体, 播放器媒体, , , 播放器
.程序集变量 网络, 播放器网络, , , 播放器
.程序集变量 设定, 播放器设定, , , 播放器
.程序集变量 光驱, 播放器光驱, , , 播放器
.程序集变量 光驱集, 播放器光驱集, , , 播放器
.程序集变量 热键标志, 整数型
.程序集变量 g, 整数型
.子程序 __启动窗口_创建完毕, , , 启动窗口
.局部变量 计次, 整数型
.局部变量 编号, 文本型
' --======== 易语言资源网 (www.5A5X.com) ======--
' 努力创建完善、持续更新的易语言学习例程源码资源站
' --================ www.5A5X.com ===========--
' --================== 易语言资源网注意事项 ================--
' * 易语言资源网为易语言官方站、易语言官方论坛提供辅助资源站;
' 本易语言资源网( www.5A5X.com)所有软件和资料均为软件作者提
' 供和网友推荐发布而来,其版权归该软件和程序源码的合法拥有者所
' 有,本站易语言资源网整理收集仅供易语言用户学习和易语言技术研
' 究探讨使用,不得用于任何商业用途。如果由于以上原因造成的版权
' 纠纷本站概不负责!
' * 本站资源未经许可,任何网站不得非法盗链及抄袭本站资源;如引用
' 页面,请注明来自易语言资源网,谢谢合作!
' --===================== www.5A5X.com ================--
热键标志 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F7键)
标签1.底图 = #gqj
' bq1.dt= #gqj
_时钟4_周期事件 ()
XP风格 (1)
' 载入 (系统设置, _启动窗口, 假)
置托盘图标 (#托盘图标, “大厅音乐点播系统 V1.0”)
' 设置客户列表框的行数
.' 如果真 (客户列表框.取表项数 () = 0)
.' 计次循环首 (到整数 (系统设置.N台.内容), 计次)
' ' 机器编号位数不足自动补0
.' 如果真 (取文本长度 (到文本 (计次)) = 1)
' 编号 = “00” + 到文本 (计次)
.如果真结束
.' 如果真 (取文本长度 (到文本 (计次)) = 2)
' 编号 = “0” + 到文本 (计次)
.如果真结束
.' 如果真 (取文本长度 (到文本 (计次)) = 3)
' 编号 = 到文本 (计次)
.如果真结束
' 客户列表框.置标题 (客户列表框.插入表项 (, , , , , ), 1, 编号 + “号”)
.' 计次循环尾 ()
.如果真结束
点播播放状态 = 假
控制 = 播放器.取控制 ()
设定 = 播放器.取设定 ()
设定.自动播放 = 假
播放器.地址 = 读配置项 (取运行目录 () + “\MusicServer.ini”, “System”, “播放地址”, )
控制.当前位置 = 到整数 (读配置项 (取运行目录 () + “\MusicServer.ini”, “System”, “播放位置”, ))
g = 到整数 (读配置项 (取运行目录 () + “\MusicServer.ini”, “System”, “播放序列”, ))
' 本源码来自易语言资源网(www.5A5X