超仿真的千千静听源码（收藏分享）

qq3687524

学习下思路 辛苦了

死耗子

学习了啊         

名字要丑点

下载拿走了。。。

piaoxu2010

还真的很像耶

默默、无闻

好东西 下来看看

浩瀚sky

很好的资源，谢谢楼主~

不为爱情折腰

.版本 2
.支持库 iext

.局部变量 音乐文件, 文本型, , "0"
.局部变量 分割成员, 文本型, , "0"
.局部变量 成员名称, 文本型
.局部变量 i, 整数型

清空 ()
超级列表框1.全部删除 ()
音乐文件 ＝ 多文件对话框 (“请选择MP3格式的文件!”, “音乐文件(*.mp3)”, , , )
.计次循环首 (取数组成员数 (音乐文件), i)
    分割成员 ＝ 分割文本 (音乐文件 [i], “\”, )
    成员名称 ＝ 取文本左边 (分割成员 [取数组成员数 (分割成员)], 取文本长度 (分割成员 [取数组成员数 (分割成员)]) － 4)
    加空记录 ()
    写 (#序号, i)
    写 (#歌曲位置, 音乐文件 [i])
    写 (#歌曲名字, 成员名称)
.计次循环尾 ()
.如果真 (取记录数 () ≠ 0)
    读表入框 ()
.如果真结束
返回 ()

.子程序 读表入框
.局部变量 i, 整数型

超级列表框1.全部删除 ()
到首记录 ()
.计次循环首 (取记录数 (), i)
    超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (i － 1, 0, 到文本 (读 (#序号)))
    超级列表框1.置标题 (i － 1, 1, 读 (#歌曲名字))
    超级列表框1.置标题 (i － 1, 2, 读 (#歌曲长度))
    跳过 ()
.计次循环尾 ()
超级列表框1.获取焦点 ()
超级列表框1.现行选中项 ＝ 0

Songs

看帖回帖好好

mocen

支持了{:3_244:}

yangyuejia

东西不错谢谢分享