媒体播放网络歌曲[可控制]有进度写法

汉族

这论坛啥都上传不了了 ，只能文字了

就用到 媒体播放  组件  支持拖动进度

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
总长	整数型

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

媒体播放1.打开 (“http://oailn3368.bkt.clouddn.com/%E9%B9%BF%E6%99%97%20-%20%E8%A7%A6%E5%8F%91%EF%BC%88Setitoff%EF%BC%89.mp3”)
媒体播放1.播放 (-1, )
总长 ＝ 媒体播放1.取长度 ()

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

滑块条1.位置 ＝ 媒体播放1.取位置 () ÷ 总长 × 100
' 调试输出 (媒体播放1.取位置 ())
标签1.标题 ＝ 到文本 (滑块条1.位置)

子程序名	返回值类型	公开	备 注
_滑块条1_位置被改变

时钟1.时钟周期 ＝ 0
媒体播放1.播放 (滑块条1.位置 × 总长 ÷ 100, )
时钟1.时钟周期 ＝ 1000

i支持库列表	支持库注释
eMMedia	多媒体支持库

.版本 2<br /> .支持库 eMMedia<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 总长, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 媒体播放1.打开 (“http://oailn3368.bkt.clouddn.com/%E9%B9%BF%E6%99%97%20-%20%E8%A7%A6%E5%8F%91%EF%BC%88Setitoff%EF%BC%89.mp3”)<br /> 媒体播放1.播放 (-1, )<br /> 总长 ＝ 媒体播放1.取长度 ()<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> <br /> 滑块条1.位置 ＝ 媒体播放1.取位置 () ÷ 总长 × 100<br /> ' 调试输出 (媒体播放1.取位置 ())<br /> 标签1.标题 ＝ 到文本 (滑块条1.位置)<br /> <br /> <br /> .子程序 _滑块条1_位置被改变<br /> <br /> 时钟1.时钟周期 ＝ 0<br /> 媒体播放1.播放 (滑块条1.位置 × 总长 ÷ 100, )<br /> 时钟1.时钟周期 ＝ 1000

不懂太多

不支持MP4，M4A播放啊

tr56h1rt56h156r

看看有没有马屁用

lyc1of

支持开源~！感谢分享

9279051

adadaawdwfwa

Quicktime

谢谢 分享 学习下

a187127

好作品 没毛病

無我

谢谢 分享 学习下

zpwz

支持好作品