pb中实现⽂字的滚动（类似于跑马灯的效果）
利⽤数据窗⼝的滚动条及窗⼝Timer事件实现从数据库表字段中读取⽂本信息⾃上⽽下滚动：
作⼀个数据窗⼝dw_1，注意为DW增加⼤量空⽩⾏，以达到⽂字可以完全滚动出显⽰区域.
在窗⼝Open事件中写⼊以下代码：
dw_1.SetTransObject(sqlca)
dw_1.Retrieve()
timer(0.5)
作⼀个数据窗⼝dw_main，在窗⼝Timer事件中写⼊以下代码：
Long ll_position
String Ls_HorizontalMax
ll_position = Long(dw_1.Object.DataWindow.VerticalScrollPosition)
Ls_HorizontalMax = dw_1.Describe( 'DataWindow.VerticalScrollMaximum')
IF ll_position = Long (Ls_HorizontalMax ) THEN
dw_1.SetTransObject(sqlca)html滚动效果代码
dw_1.Retrieve()
ll_position=Long(dw_1.describe( 'DataWindow.VerticalScrollMinimum'))
ELSE
ll_position = ll_position + 2
END IF
dw_1.Modify("DataWindow.VerticalScrollPosition='"+ String (ll_position ) +"'")

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。