求助，新手小白 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
播放器	对象 ' Windows Media Player对象

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

' 初始化播放器
播放器.创建 ("WMPlayer.OCX", )
播放器.左边＝ 20
播放器.顶边＝ 200
播放器.宽度＝ 400
播放器.高度＝ 300
播放器.写属性 ("uiMode", "none") ' 隐藏控制界面
' 初始化列表框
列表框1.类型＝ 3 ' 报表列表框
列表框1.插入列 (0, "序号", 50, , , )
列表框1.插入列 (1, "文件名", 250, , , )
列表框1.插入列 (2, "路径", 400, , , )

子程序名	返回值类型	公开	备注
_按钮_选择文件夹_被单击

.局部变量文件夹路径, 文本型
.局部变量文件数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量索引, 整数型
' 使用系统对话框选择文件夹
文件夹路径＝浏览文件夹 ("请选择包含媒体文件的文件夹", "")

如果 (文件夹路径＝ "")

返回 ()

' 查找所有媒体文件
文件数组＝寻找文件 (文件夹路径＋ "\*.mp3;*.mp4;*.avi;*.wmv", )
列表框1.全部删除 ()
' 填充列表框

计次循环首 (取数组成员数 (文件数组), i)

索引＝列表框1.插入表项 (, , , , , )

列表框1.置标题 (索引, 0, 到文本 (i))

列表框1.置标题 (索引, 1, 取文件文件名 (文件数组[i]))

列表框1.置标题 (索引, 2, 文件数组[i])

计次循环尾 ()

子程序名	返回值类型	公开	备注
_列表框1_列表项被选择

.局部变量选中索引, 整数型
.局部变量文件路径, 文本型
选中索引＝列表框1.现行选中项

如果 (选中索引 ≥ 0)

文件路径＝列表框1.取标题 (选中索引, 2)

如果 (文件路径 ≠ "")

播放器.写属性 ("URL", 文件路径)

播放器.对象型方法 ("controls", "play")

状态条1.置文本 (0, "正在播放: " ＋列表框1.取标题 (选中索引, 1))

子程序名	返回值类型	公开	备注
取文件文件名	文本型
参数名	类型	参考	可空	数组	备注
文件路径	文本型

.局部变量位置, 整数型
位置＝倒找文本 (文件路径, "\", , 假)

如果 (位置＞ 0)

返回 (取文本右边 (文件路径, 取文本长度 (文件路径) －位置))

返回 (文件路径)

i支持库列表	支持库注释
iext	扩展界面支持库一
shell	操作系统界面功能支持库

.版本 2<br />
.支持库 iext<br />
.支持库 shell<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 播放器, 对象  ' Windows Media Player对象<br />
<br />
.子程序 __启动窗口_创建完毕<br />
    ' 初始化播放器<br />
    播放器.创建 ("WMPlayer.OCX", )<br />
    播放器.左边 ＝ 20<br />
    播放器.顶边 ＝ 200<br />
    播放器.宽度 ＝ 400<br />
    播放器.高度 ＝ 300<br />
    播放器.写属性 ("uiMode", "none")  ' 隐藏控制界面<br />
<br />
    ' 初始化列表框<br />
    列表框1.类型 ＝ 3  ' 报表列表框<br />
    列表框1.插入列 (0, "序号", 50, , , )<br />
    列表框1.插入列 (1, "文件名", 250, , , )<br />
    列表框1.插入列 (2, "路径", 400, , , )<br />
<br />
.子程序 _按钮_选择文件夹_被单击<br />
    .局部变量 文件夹路径, 文本型<br />
    .局部变量 文件数组, 文本型, , "0"<br />
    .局部变量 i, 整数型<br />
    .局部变量 索引, 整数型<br />
<br />
    ' 使用系统对话框选择文件夹<br />
    文件夹路径 ＝ 浏览文件夹 ("请选择包含媒体文件的文件夹", "")<br />
    .如果 (文件夹路径 ＝ "")<br />
        返回 ()<br />
    .如果结束<br />
<br />
    ' 查找所有媒体文件<br />
    文件数组 ＝ 寻找文件 (文件夹路径 ＋ "\*.mp3;*.mp4;*.avi;*.wmv", )<br />
    列表框1.全部删除 ()<br />
<br />
    ' 填充列表框<br />
    .计次循环首 (取数组成员数 (文件数组), i)<br />
        索引 ＝ 列表框1.插入表项 (, , , , , )<br />
        列表框1.置标题 (索引, 0, 到文本 (i))<br />
        列表框1.置标题 (索引, 1, 取文件文件名 (文件数组<i>))<br />
        列表框1.置标题 (索引, 2, 文件数组<i>)<br />
    .计次循环尾 ()<br />
<br />
.子程序 _列表框1_列表项被选择<br />
    .局部变量 选中索引, 整数型<br />
    .局部变量 文件路径, 文本型<br />
<br />
    选中索引 ＝ 列表框1.现行选中项<br />
    .如果 (选中索引 ≥ 0)<br />
        文件路径 ＝ 列表框1.取标题 (选中索引, 2)<br />
        .如果 (文件路径 ≠ "")<br />
            播放器.写属性 ("URL", 文件路径)<br />
            播放器.对象型方法 ("controls", "play")<br />
            状态条1.置文本 (0, "正在播放: " ＋ 列表框1.取标题 (选中索引, 1))<br />
        .如果结束<br />
    .如果结束<br />
<br />
.子程序 取文件文件名, 文本型<br />
.参数 文件路径, 文本型<br />
    .局部变量 位置, 整数型<br />
    位置 ＝ 倒找文本 (文件路径, "\", , 假)<br />
    .如果 (位置 ＞ 0)<br />
        返回 (取文本右边 (文件路径, 取文本长度 (文件路径) － 位置))<br />
    .否则<br />
        返回 (文件路径)<br />
    .如果结束