|
2精币
- .版本 2
- .程序集 窗口程序集1
- .程序集变量 b, 文本型, , "0"
- .子程序 _按钮添加_被单击
- .局部变量 a, 文本型, , "0"
- .局部变量 n, 整数型
- ' a = 取文本右边 (“\”, 取文本长度 (通用对话框1.文件名) - 倒找文本 (通用对话框1.文件名, “\”, , 假))
- a = 多文件对话框 (, “|*.mp3”, , , 真) ' 多文件对话框(不需组件)与 通用对话框(要组件)不同:前者可载入1个至多个 是后者功能的扩展
- .如果真 (取数组成员数 (a) = 0)
- 返回 ()
- .如果真结束
- .计次循环首 (取数组成员数 (a), n)
- b [n] = 取文本左边 (a [n], 倒找文本 (a [n], “\”, , 假))
- a [n] = 取文本右边 (a [n], 取文本长度 (a [n]) - 倒找文本 (a [n], “\”, , 假))
- 列表框1.加入项目 (a [n], n - 1)
- .计次循环尾 ()
- .子程序 _按钮播放_被单击
- .如果真 (列表框1.现行选中项 = -1)
- 列表框1.现行选中项 = 0
- .如果真结束
- 播放MP3 (, b [列表框1.现行选中项 + 1] + 列表框1.取项目文本 (列表框1.现行选中项))
复制代码 主要是,想在播放的时候 不显示路径 使美观,但是没路径又不能播放,于是我添加了一个程序集文本数组b,在播放MP3()里加上,但是错误是:数组成员引用下标超出定义范围!
这是什么情况啊?宁外我这个方法是否是对的啊?如果不对,如何隐藏路径啊?
|
|