pb怎么实现文字滚动效果

pb如何实现文字滚动效果
在网上找到一个办法，但是没想到办法怎么来控制速度

使用数据窗口的 timer interval
加计算字段 left(string(cpu() ) + string(today(),'yyyymmdd'),len(string(cpu()) + string(today(),'yyyymmdd')) -8) 命名为 t 

在要滚动的标签的x的表达式里边增加 ： 1700 - int(long( right(t, 4)) / 2.94)

这样倒是能滚动显示，速度有些太快了，改为 (1700 - int(long( left(right(t, 5), 4)) / 2.94))

这样速度又太慢了，有什么更好的办法来控制滚动速度呢？



------解决方案--------------------
我觉得可以写个全局函数
long gf_interval(long al_1 )
if isnull(al_1) then return 0
if al_1<1 then return 0
return mod(cpu(),al_1)

你自己传入al_1指定多少个cpu时钟作为一个周期
x表达式写
1700 - long(1700*2*gf_interval(al_1)/al_1)
这样你就可以任意指定al_1(正整数)来改变循环周期了
------解决方案--------------------
long gf_interval(long al_1 )
if isnull(al_1) then return 0
if al_1<1 then return 0
return mod(cpu(),al_1)

使用数据窗口的 timer interval --改t
加计算字段 left(string(cpu() ) + string(today(),'yyyymmdd'),len(string(cpu()) + string(today(),'yyyymmdd')) -8) 命名为 t 

把所有cpu改为gf_interval(10000)--参数自己定

left(string(gf_interval(10000) ) + string(today(),'yyyymmdd'),len(string(gf_interval(10000)) + string(today(),'yyyymmdd')) -8) 命名为 t
在要滚动的标签的x的表达式里边增加 ： 1700 - int(1700*2*long(t)/100000)
试试