主题:如何实现数据库数据像股票信息一样,从右向左滚动显示数据?
marooner
[专家分:110] 发布于 2008-03-24 08:15:00
如题!如何实现数据库数据像股票信息一样,从右向左滚动显示数据?是利用时间控件吗?
谢谢!
回复列表 (共11个回复)
沙发
cbl518 [专家分:57140] 发布于 2008-03-24 08:22:00
显示什么数据啊!
是图形?,那就用移动条控件,在表单直接作图显示。
其他数据用,表格控件或列表框都行!
板凳
marooner [专家分:110] 发布于 2008-03-24 09:27:00
谢谢cbl518的回答,我说的是,显示会员积分情况,横向滚动显示每个会员的积分数据!比如,张三,75分;李四,76分,如何滚动显示?
3 楼
jinlonggao [专家分:17130] 发布于 2008-03-24 10:39:00
建两个控件,一个是container1,一个是text1,text1的宽度是container1的两位,container1的宽度可以显示一个或两个人的积分信息(假如显示一个人的)。个人的积分信息储存在一个表b1中,分别有"姓名"和“分数”两个字段。
另建一timer1控件,在其init方法中写入:
with thisform.container1
.width = 240
.height = 24
.text1.top = 0
.text1.height = .height
.text1.width = 2 * .width
.text1.left= 0
endwith
在timer1的timer方法中写入:
with thisform.container1.text1
.left=iif( .left <=.width/(-2),0,.left -1)
if .left = 0
select b1
.value = 姓名+' '+str(分数)
if !eof()
skip
else
go top
endif
.value = .value+','+姓名+' '+str(分数)
endif
endwith
注:
text1的宽度正好可以放两个人的信息,如果要放三个人的信息,上述代友需要改动,其它类推。另,可设置text1的边框线宽度为0
适当调整timer1的interval属性值,以确定最佳效果。
4 楼
marooner [专家分:110] 发布于 2008-03-25 19:17:00
谢谢jinlonggao老师的回答,这就是我想要的效果!正在调试!谢谢了!
5 楼
zhangjh [专家分:20] 发布于 2008-11-25 12:03:00
jinlonggao老师在吗?根据您的方法我也试了,但在运行表单时提示"不能识别的成员TEXTI",不知是何原因?谢谢!
6 楼
moz [专家分:37620] 发布于 2008-11-25 12:10:00
1<> I
7 楼
zhangjh [专家分:20] 发布于 2008-11-25 12:33:00
对不起,我敲错了,将"不能识别的成员TEXT1",敲成了"不能识别的成员TEXTI"。
8 楼
zhangjh [专家分:20] 发布于 2008-11-26 10:31:00
还有没有其他的师傅知道此事?恳请帮忙,谢谢!
9 楼
jinlonggao [专家分:17130] 发布于 2008-12-02 15:47:00
代码查看了,好像没什么错,你要注意TEXT1是建在container1内的.
10 楼
zhangjh [专家分:20] 发布于 2008-12-02 16:48:00
谢谢jinlonggao这位朋友的提示,我再试试。
我来回复