前几天吧,我们副组长教了个媒体播放器器。所以呢今天我就写这个媒体播放器。好了话不多说,请看源码。不好的话,请多多指教。
组件:高级表格、按钮×2、滑块条×2、时钟、媒体播放。
首先添加一个高级表格组件,一个按钮''为什么用到高级表格呢,它只是一个路径,也可以使用其他的组件来代替这个路径,比如编辑框。
子程序名 _启动窗口_创建完毕
高级表格1.置数据(0.0.1.“音乐”)
高级表格1.置数据(0.1.1.“路径”)
子程序_名按钮1_被单击
变量名 类型
路径 文本型
路径=浏览文件夹(“选择音乐所在文件”,真)
如果真(路径=“”)
返回
文件_枚举(路径,“*.mp3”,文件名,假) ''文件枚举呢,是精英模块中的一条命令。
高级表格1.行数=取数组成员(文件名)+1
计次循环首(取数组成员数(文件名)a)
高级表格1.置数据(a.0.1,文件名[a])
高级表格1.置数据(a.0.1,路径+“\”+文件名[a])
'然后会用到一个被双击事件,双击列表,取被双击的文件播放。
_高级表格1_被双击
标题 = 高级表格1.取数据(高级表格1.取光标行号().0)
高级表格1.取数据(高级表格1.取光标行号().1)
然后就是添加一个(媒体播放组件), '这个组件就是让你所双击的文件正常播放。