易语言播放器组件闪退

cfpulswy

制作视频播放器，我的视频组件打开MP4格式，wmv格式，avi格式的文件后，直接闪退
WIN10 易语言5.8，易语言5.9，易语言5.7，都试过，不行，有大佬知道吗

[AppleScript] 纯文本查看 复制代码

.版本 2
.支持库 wmp9
.支持库 iext2

.程序集 窗口程序集_启动窗口
.程序集变量 目录, 文本型
.程序集变量 文件夹, 整数型
.程序集变量 视频文件, 文本型

.子程序 _按钮1_被单击

.如果真 (通用对话框1.打开 () ＝ 真)
    目录 ＝ 通用对话框1.文件名
    文件夹 ＝ 倒找文本 (目录, “\”, , 假)
    目录 ＝ 取文本左边 (目录, 文件夹)
    视频文件 ＝ 寻找文件 (目录, )
    视频文件 ＝ 寻找文件 (“*.mp4”, )
    .如果真 (视频文件 ＝ “”)
        列表框1.加入项目 (视频文件, )

    .如果真结束
    .判断循环首 (视频文件 ≠ “”)
        视频文件 ＝ 寻找文件 (, )
        .如果 (视频文件 ＝ “”)
            跳出循环 ()
        .否则
            列表框1.加入项目 (视频文件, )
        .如果结束

    .判断循环尾 ()
    .如果真 (列表框1.现行选中项 ＝ -1)
        列表框1.现行选中项 ＝ 0
    .如果真结束
    播放器1.地址 ＝ 目录 ＋ 列表框1.取项目文本 (列表框1.现行选中项)

.如果真结束


.子程序 _列表框1_双击选择

处理事件 ()
播放器1.地址 ＝ 目录 ＋ 列表框1.取项目文本 (列表框1.现行选中项)


.子程序 _分隔条1_被拖动
.参数 原位置, 整数型
.参数 目的位置, 整数型
.局部变量 变动位置, 整数型

变动位置 ＝ 原位置 － 目的位置
播放器1.宽度 ＝ 播放器1.宽度 ＋ 变动位置
分隔条1.左边 ＝ 分隔条1.左边 ＋ 变动位置
列表框1.宽度 ＝ 列表框1.宽度 － 变动位置
列表框1.左边 ＝ 列表框1.左边 ＋ 变动位置

我知道答案 回答被采纳将会获得1 易币 + 10 易币 已有0人回答