AVI播放器

想学坏的小孩

.版本 2
.支持库 iext2

.程序集 窗口程序集1

.子程序 __启动窗口_尺寸被改变

滑块条1.宽度 ＝ 取用户区宽度 () － 超级按钮1.宽度 － 30
超级按钮1.左边 ＝ 滑块条1.左边 ＋ 滑块条1.宽度 ＋ 10
滑块条1.顶边 ＝ 取用户区高度 () － 10 － 滑块条1.高度
超级按钮1.顶边 ＝ 滑块条1.顶边
高级影像框1.宽度 ＝ 取用户区宽度 () － 20
高级影像框1.高度 ＝ 取用户区高度 () － 滑块条1.高度 － 30

.子程序 _打开_被选择

.如果真 (通用对话框1.打开 ())
    高级影像框1.影像文件名 ＝ 通用对话框1.文件名
.如果真结束


.子程序 转换按钮
.参数 方式, 整数型, , 1:转为播放; 2:转为暂停

检查 (方式 ＝ 1 或 方式 ＝ 2)
.如果 (方式 ＝ 1)
    超级按钮1.通常图片 ＝ #播放通常图片
    超级按钮1.点燃图片 ＝ #播放点燃图片
    超级按钮1.提示文本 ＝ “播放”
.否则
    超级按钮1.通常图片 ＝ #暂停通常图片
    超级按钮1.点燃图片 ＝ #暂停点燃图片
    超级按钮1.提示文本 ＝ “暂停”
.如果结束
超级按钮1.标记 ＝ 到文本 (方式)

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

.如果 (超级按钮1.标记 ＝ “2”)  ' 暂停
    高级影像框1.播放 ＝ 2
.否则
    高级影像框1.播放 ＝ 3
.如果结束


.子程序 _滑块条1_位置被改变

高级影像框1.当前帧 ＝ 滑块条1.位置 × 高级影像框1.全部帧数 ÷ 滑块条1.最大位置

.子程序 __启动窗口_创建完毕

转换按钮 (1)

.子程序 _时钟1_周期事件

.如果 (高级影像框1.播放 ≠ 0)  ' 是否未播放？
    .如果真 (超级按钮1.标记 ≠ “1”)
        转换按钮 (1)
    .如果真结束

.否则

    .如果真 (超级按钮1.标记 ≠ “2”)
        转换按钮 (2)
    .如果真结束
    滑块条1.位置 ＝ 高级影像框1.当前帧 × 滑块条1.最大位置 ÷ 高级影像框1.全部帧数
.如果结束

想学坏的小孩

顺便上传个 avi文件 试试效果

lvliangshan

看看什么好东西