.版本 2
.子程序 _进度条_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
进度条.位置 ＝ 四舍五入 (计算_到百分比 (进度条.宽度, 横向位置), )
APlayer.置当前时间 (四舍五入 (计算_取百分比 (APlayer.取总时间 (), 进度条.位置), ))
.子程序 计算_取百分比, 双精度小数型, 公开, 取出 总大小 的 百分比 的数值
.参数 总大小, 双精度小数型
.参数 百分比, 双精度小数型
.参数 比例, 双精度小数型, 可空, 默认100=百分比
.如果真 (比例 ＝ 0)
比例 ＝ 100
.如果真结束
返回 (百分比 × 总大小 ÷ 比例)
.子程序 计算_到百分比, 双精度小数型, 公开, 取出 当前大小 占 总大小 的百分比
.参数 总大小, 双精度小数型
.参数 当前大小, 双精度小数型
.参数 比例, 双精度小数型, 可空, 默认100=百分比
.如果真 (比例 ＝ 0)
比例 ＝ 100
.如果真结束
返回 (当前大小 × 比例 ÷ 总大小)
.版本 2
.子程序 _时钟_周期事件
进度条.位置 ＝ 四舍五入 (计算_到百分比 (APlayer.取总时间 (), APlayer.取当前时间 ()), )
' 标签_时间.标题 ＝ 时间_毫秒到小时 (APlayer.取当前时间 ()) ＋ “/” ＋ 时间_毫秒到小时 (APlayer.取总时间 ())
