易语言播放器组件闪退
制作视频播放器，我的视频组件打开MP4格式，wmv格式，avi格式的文件后，直接闪退WIN10 易语言5.8，易语言5.9，易语言5.7，都试过，不行，有大佬知道吗
.版本 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]