怎样实现数据窗口的字幕效果，急急！！！！
我想用数据窗口不停地滚动显示一些数据，就像字幕一样，不知如何实现？要是能达到像网页中那样的字幕效果一定100分送上，不够还可以再加。 问题点数：100、回复次数：6Top
1 楼jaguarcts（xzh2000）回复于 2002-04-12 08:14:55 得分 0
1、启动定时器trimer(1)
2、在TIMER事件中写代码
string ls_str = 'adcdefg'
string ls_1
ls_1 = right(ls_str,len(ls_str)-1)+left(ls_str,1)
Top
2 楼jaguarcts（xzh2000）回复于 2002-04-12 08:16:57 得分 0
dw_1.object.t_scroll.text = ls_1Top
3 楼hoyu（心茗）回复于 2002-04-12 09:09:34 得分 0
陶清网站好像有源代码下载！几着给分！Top
4 楼llitcwl（中国龙）回复于 2002-04-12 09:58:01 得分 20
一个网友以前做的，倒进去就可以了：
$PBExportComments$用数据窗口做跑马灯
release 7;
datawindow(units=1 timer_interval=10 color=15780518 processing=0 HTMLDW=no print.documentname="" print.orientation = 0 print.margin.left = 24 print.margin.right = 24 print.margin.top = 24 print.margin.bottom = 24 print.paper.source = 0 print.paper.size = 0 print.prompt=no print.buttons=no print.preview.buttons=no )
summary(height=0 color="536870912" )
footer(height=0 color="536870912" )
detail(height=87 color="536870912" )
table(column=(type=char(10) updatewhereclause=yes name=s dbname="s" )
)
text(band=header alignment="1" text="S:" border="0" color="0" x="13" y="6" height="14" width="18" name=s_t font.face="宋体" font.height="-9" font.weight="400" font.family="0" font.pitch="2" font.charset="134" background.mode="1" background.color="536870912" )
column(band=detail id=1 alignment="0" tabsequence=10 border="0" color="0" x="2" y="32" height="1" width="16" format="[general]" name=s edit.limit=0 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="宋体" font.height="-9" font.weight="400" font.family="0" font.pitch="2" font.charset="134" background.mode="1" background.color="536870912" )
text(band=detail alignment="0" text="现在跑马灯可以用了！" border="0" color="8421376" x="0~t333 - (long(left(right(string(t),4),3))) /1.5" y="0" height="33" width="279" name=t_1 font.face="Arial" font.height="-20" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="553648127" )
compute(band=summary alignment="0" expression="left(string(cpu()) + string(today(),'yyyymmdd'),len(string(cpu()) + string(today(),'yyyymmdd')) -8)"border="0" color="0" x="43" y="11" height="19" width="371" format="[general]" name=t visible="1~t0" font.face="Arial" font.height="-12" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=detail alignment="0" text="/*truncate((long(left(right(string(t),4),3)) /50),0) * 50* (rgb(255,255,255) /1000)*/rand(100)/100 * rgb(255,255,255)" border="0" color="16711935" x="1" y="44" height="14" width="1418" name=t_2 font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="553648127" )
text(band=detail alignment="0" text="333 - (long(left(right(string(t),4),3))) /1.5" border="0" color="16711935" x="0" y="66" height="14" width="508" name=t_3 font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="553648127" )
htmltable(border="1" )
htmlgen(clientevents="1" clientvalidation="1" clientcomputedfields="1" clientformatting="0" clientscriptable="0" generatejavascript="1" )
Top
5 楼llitcwl（中国龙）回复于 2002-04-12 10:00:08 得分 0
头上加一句：$PBExportHeader$go.srdTop
6 楼huaxiaosxl（Ken Lee）回复于 2002-04-12 18:04:42 得分 0
请大家一起考虑：可不可以按这样的思路实现？
先将数据窗口导出成HTML文档，然后在程序中修改此文件，加入JS代码，然后再通过OLE将此文档打开。如果有谁成功请将代码发给我一份，谢谢！我的邮箱是：huaxiaosxl@163.comTop
7 楼Netcity（千王之王）回复于 2002-07-11 21:57:40 得分 80
你的思路确实不错，我已经实现了。邮件已经发送，请查收。Top
相关问题
- 关于ODBC数据源，急急急急急急急急急！！！！！！！！！！！
- excel与access数据转化！！！急急急急急急急急急
- 在crystal reports4.6怎样刷新sql数据呢？急急急急急急急急急急急急急急急急急急急急急急急急
- 急！急！急！急！急！急！急！急！急！急！急！数据库连接的问题！！
- 急急急急急急急急急急急急急急，此段代码连接数据库一问，急急急急急急急急急急
- 数据窗口的 checkbox ,急急急急急急急急
- 数据窗口不能向表里添加数据！急急急急急急急急急急急急急
- 请问关于数据验证的问题？急急急急急急急急急急急急急急急
- 关于entity bean的数据源配置？（在线等）急急急急急急急急急急急急急急急............
- 关于自动显示数据的问题？急急急急急急急急急急急急急急急急急急急急急
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
