查看完整版本: [-- 易语言 ap 进度条  和 进度条拖放 --]

APlayer 开发者论坛 -> APlayer 讨论区 -> 易语言 ap 进度条  和 进度条拖放 [打印本页] 登录 -> 注册 -> 回复主题 -> 发表主题

全镇 2016-01-24 09:08

易语言 ap 进度条  和 进度条拖放

怎么写啊  有列子吗

wki 2016-01-24 11:25
http://aplayer.open.xunlei.com/bbs/read.php?tid=23571

ccini 2016-01-24 13:47
.版本 2

.子程序 _进度条_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 百分比, 整数型

百分比 = 计算_到比例 (进度条.宽度, 横向位置)
进度条.位置 = 百分比
APlayer.置当前时间 (计算_取比例 (APlayer.取总时间 (), 百分比))

ccini 2016-01-24 13:54
.版本 2

.子程序 _进度条_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

进度条.位置 = 四舍五入 (计算_到百分比 (进度条.宽度, 横向位置), )
APlayer.置当前时间 (四舍五入 (计算_取百分比 (APlayer.取总时间 (), 进度条.位置), ))

.子程序 计算_取百分比, 双精度小数型, 公开, 取出 总大小 的 百分比 的数值
.参数 总大小, 双精度小数型
.参数 百分比, 双精度小数型
.参数 比例, 双精度小数型, 可空, 默认100=百分比

.如果真 (比例 = 0)
    比例 = 100
.如果真结束
返回 (百分比 × 总大小 ÷ 比例)

.子程序 计算_到百分比, 双精度小数型, 公开, 取出 当前大小 占 总大小 的百分比
.参数 总大小, 双精度小数型
.参数 当前大小, 双精度小数型
.参数 比例, 双精度小数型, 可空, 默认100=百分比

.如果真 (比例 = 0)
    比例 = 100
.如果真结束
返回 (当前大小 × 比例 ÷ 总大小)



.版本 2

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

进度条.位置 = 四舍五入 (计算_到百分比 (APlayer.取总时间 (), APlayer.取当前时间 ()), )
' 标签_时间.标题 = 时间_毫秒到小时 (APlayer.取当前时间 ()) + “/” + 时间_毫秒到小时 (APlayer.取总时间 ())

dywr888 2016-01-25 09:54
ccini:.版本 2
.子程序 _进度条_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
....... (2016-01-24 13:54) 

感谢大神 困扰我十几天的问题终于解决了

全镇 2016-01-26 02:13
SetPosition 设置播放进度
GetDuration获取总长度
他们怎么结婚结合进度条 啊  易语言的写法

.版本 2

.子程序 _滑块条1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

SetPosition (aplayer, 滑块条1.位置 × 1000)


.子程序 OnOpenSuccess

滑块条1.最大位置 = GetDuration (aplayer) ÷ 1000

效率好低  播放网络文件  拖放感觉很卡顿

ccini 2016-01-26 03:10
全镇:SetPosition 设置播放进度
GetDuration获取总长度
他们怎么结婚结合进度条 啊  易语言的写法
.版本 2
....... (2016-01-26 02:13) 

用我上面的代码,把滑块条改为进度条

全镇 2016-01-26 19:14
ccini:用我上面的代码,把滑块条改为进度条 (2016-01-26 03:10) 

谢谢你  搞定了 不过没用你的方法

宇天 2016-01-30 14:31
全镇:谢谢你  搞定了 不过没用你的方法  (2016-01-26 19:14) 

你怎么搞定进程条的?

qq10001 2016-02-08 16:04
全镇:谢谢你  搞定了 不过没用你的方法  (2016-01-26 19:14) 

你用的哪个方法啊  求分享

liudh1024 2016-06-23 18:49
    


查看完整版本: [-- 易语言 ap 进度条  和 进度条拖放 --] [-- top --]


Powered by phpwind v8.7 Code ©2003-2011 phpwind
Time 0.008365 second(s),query:0 Gzip enabled