回 帖 发 新 帖 刷新版面

主题:如何实现数据库数据像股票信息一样,从右向左滚动显示数据?

如题!如何实现数据库数据像股票信息一样,从右向左滚动显示数据?是利用时间控件吗?
谢谢!

回复列表 (共11个回复)

沙发

显示什么数据啊!
是图形?,那就用移动条控件,在表单直接作图显示。
其他数据用,表格控件或列表框都行!

板凳


谢谢cbl518的回答,我说的是,显示会员积分情况,横向滚动显示每个会员的积分数据!比如,张三,75分;李四,76分,如何滚动显示?

3 楼

建两个控件,一个是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 楼

谢谢jinlonggao老师的回答,这就是我想要的效果!正在调试!谢谢了!

5 楼

jinlonggao老师在吗?根据您的方法我也试了,但在运行表单时提示"不能识别的成员TEXTI",不知是何原因?谢谢!

6 楼

1<> I

7 楼

对不起,我敲错了,将"不能识别的成员TEXT1",敲成了"不能识别的成员TEXTI"。

8 楼

还有没有其他的师傅知道此事?恳请帮忙,谢谢!

9 楼

代码查看了,好像没什么错,你要注意TEXT1是建在container1内的.

10 楼

谢谢jinlonggao这位朋友的提示,我再试试。

我来回复

您尚未登录,请登录后再回复。点此登录或注册