添加本地音乐或视频

尐酷奇哆

如何添加本地音乐或视频到高级列表框实现播放

An晓成

过程 浏览目录(目录 为 文本型)
        变量 结果 为 文本型
        变量 分割 为 文本型()
        变量 计次 为 整数型
        变量 路径 为 文本型
        高级列表框1.清空项目()
        现行目录 = 目录
        结果 = 寻找文件关键词(目录,"")
        分割 = 分割文本(结果,"\n")
        如果 取数组下标(分割,1) > 0 则
                变量循环首 计次 = 1 至 取数组下标(分割,1)
                        路径 = 分割(计次 - 1)
                        如果 是否为隐藏文件(路径) = 假 则
                                如果 是否为目录(路径) = 真 则
                                        高级列表框1.添加项目("folder.png",路径,"目录","","")
                                否则       
                                        高级列表框1.添加项目("file.png",路径,"文件大小：" & 大数相除(到文本(取文件尺寸(路径)),"1024",0) & "KB","","")
                                结束 如果
                        结束 如果
                变量循环尾
        结束 如果       
结束 过程

事件 高级列表框1.表项被单击(项目索引 为 整数型)
        变量 内容 为 文本型
        编辑框4.内容 = 高级列表框1.取项目标题(项目索引)
        编辑框3.内容 = 取指定文本2(编辑框4.内容,"/下载/",".mp4")
        内容 = 高级列表框1.取项目标题(项目索引)
        如果 是否为目录(内容) = 真 则
                浏览目录(内容)       
        否则
                Ok百度视频1.开始播放2(高级列表框1.取项目标题(项目索引),取存储卡路径() & "/" & 公用模块.软件名称 & "/下载/" & 编辑框3.内容 & ".mp4")
        结束 如果
结束 事件

尐酷奇哆

An晓成 发表于 2021-3-6 14:46
过程 浏览目录(目录 为 文本型)
        变量 结果 为 文本型
        变量 分割 为 文本型()

还是不懂能给个源码例子吗？？？

fanchen

路过看看aaaaaa